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är ett annorlunda program¬ 
varuhus vars specialitet är 
adventurespel. 


- ett adenturespel för VIC 
20 i sjukhusmiljö. Ej att re¬ 
kommendera för dig med 
bacillskräck. 


Första pristagaren Karl 
Hörnell är tillbaka igen med 
ett spelprogram för VIC 64. 
Listningarna finner du i tid¬ 
ningen. 
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Karl Hörnell förstapristagare i 
VIC rapports tävling 1984. 
Denne grodinspirerade kille 
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Äntligen 
lite action 


Piratkopiering har länge varit ett 
stort problem för programvaruhu¬ 
sen. Dessa lägger ner stora sum¬ 
mor pä programutveckling som de 
väntar sig att få tillbaka via fram¬ 
tida försäljning. Men när program¬ 
met släpps ut till allmänheten 
finns det några ”smarta” program¬ 
merare som bryter kopierings¬ 
skyddet och sedan tjänar pengar 
själva. Denna verksamhet har 
knäckt många programvaruföre¬ 
tag och 1984 fick vi se en del av 
dessa i konkurs. 

Runt om i världen märker man 
nu en reaktion. I flera länder har 
piratkopierare ertappats och fällts 
i domstol. Prejudikat dyker upp i 
land efter land. 

I Sverige har programvaruföre¬ 
tagen blivit mer aktiva. Efter ett 
känt fall inom videobranschen där 
svartkopierarna fälldes har pro¬ 
gramvaruföretagen aktiverats. 

Personligen önskar jag dem lyc¬ 
ka till i jakten pä piratkopierare så 
att vi även i framtiden kan njuta 
av väl förberedda och avancerade 
datorprogram. 


Slut på lagret 

VIC rapport 
årg3nr8och9 
samt nr 1/85 är 
slut på lagret. 
Går ej att be¬ 
ställa. 
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COMMODORE color MCS 801 
graphic printer 


F ördelarna med denna printer. Den har ätta fär¬ 
ger som är enkla att hantera, man kan skriva i 
olika storlekar, olika radavstånd, reverserat, skri¬ 
va samma text två gånger pä samma ställe sä kallat 
"2-pass mode” och mycket mera. 

En av de största fördelarna som jag ser det är att 
papperet inte trasslar sig. Konstruktionen är sim¬ 
pel men effektiv. Det är en platta som skiljer det 
undre papperet från det övre och en som styr det 
övre papperet så att det inte kommer snett eller 
tillbaks under valsen. 

Här är en liten demonstration av färghantering. 

10 OPEN4.4 

20 FOR T=1 TO 8 

30 PRINT#4,CHR$(20),CHR$(T), 

"COMMODORE” 

40 NEXT 
50 CLOSE4 

Så här kommer man in i ”2-pass mode” 

10 OPEN19,4,19:PRINT#19:CLOSE19 

Det finns speciellt en sak som är rolig för den som är 
intresserad av att konstruera egna tecken direkt 
till printern. Sä här kan det se ut om man vill göra 
sig en liten gubbe. 

10 DATA 0,16,203,63,203,16,0,0 
20 OPEN 5,4,5 


30 FOR T=1 TO 8:READ A:A$=A$+CHR$(A- 

):NEXT 

40 OPEN7,4,7 

50 DC$=CHR$(20): REM CHR$(20) sätts innan 
man byter färg 

60 PC$=CHR$(254): REM CHR$(254> står för det 
nya tecknet 

70 CS$=CHR(141): REM CHR$(141) står för 
carrige return 

80 EN$=CHR$(14): REM CHR$( 14) sätter extra 
stora bokstäver 

90 DE$=CHR$( 15): REM CHR$( 15) stänger av 

extra stora bokstäver 

100 PRINT#7,DC$;CHR$<3> 

110 PR1NT#5,A$:PRINT #7,EN$;” ”;PC$;CS$ 

120 END 

_NACKDELARNA MED MCS 801_ 

Den skriver grått i stället för svart, vilket gör att 
det ibland blir svårt att se vad det står. För att 
motverka detta måste man gå in i ”2-pass mode”. 
Det gör att den blir långsammare nagot tråkigt att 
använda. De andra färgerna t ex rött och blått syns 
klart bättre. Det är svårt att sätta dit färgbandet, 
p g a att det är trängt mellan valsen och den lilla 
stålbrickan som centrerar färgbandet. Det är också 
svårt att sätta dit papperet, som också hade en ten¬ 
dens att fastna på samma ställe som färgbandet. □ 


Calc Result i praktiken 



Nu är hjälpmedlet alla Calc Result 
användare har drömt om äntligen 
här. 

Boken innehåller 27 olika kalkylmo¬ 
deller. De beskrivna modellerna har 
givits en generell utformning vilket 
ger dem en mångsidig användning. 
Ofta långt utöver den applikation 
som visas i boken. 

Ca pris: 198:- 

Handic Press AB 

Box 42054, 126 12 Stockholm. 

Tel 08-744 59 20 
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B land alla spel som finns på 
marknaden idag till Commo- 
dore 64, är det få som är så ge¬ 
nomtänkt gjorda som ett riktigt 
bra adventure. Mänga av de män¬ 
niskor som tycker illa om grafik- 
actionspelens pang-svisch-egen- 
skaper, lutar sig mycket hellre 
tillbaka med ett gott adventure i 
sin 64. Det kan gälla att rädda en 
stad, eller att hitta mördaren i ett 
gammalt klassiskt deckaräven- 
tyr. Adventurespelandet skänker 
avkoppling men kräver också 
lOO^r-ig tankeskärpa. De kan ta 
veckor att lösa, även om man 
spenderar 5 timmar per natt pä 
att kämpa sig fram. 

Olika adventures är olika kom¬ 
plext uppbyggda. De kan vara en¬ 
kla att lösa, eller mer komplice¬ 
rade. Detta beror främst på stor¬ 
leken hos spelet. Ett litet text- 
adventure kan vara på 8k, medan 
ett stort grafikdito kan ta 10 dis¬ 
ketter i anspråk. Grafikbildema 
tar otroligt mycket plats, så av ett 
grafikadventure och ett textdito 
av samma klass, är grafikspelet 
kanske 15 g g r så stort. 

Själv föredrar jag riktigt stora 
och mystiska textadventures. 
Där kan man få stora spel med 
bra 'story’, utan att det tar 5 dygn 
att ladda in. Det verkar dessutom 
som om en del grafikspelsskapare 
tänker mer på bilderna, och 
glömmer bort själva spelet lite- 
grann. De flesta grafikspel håller 


inte alls samma klass som de bäs¬ 
ta textspelen. 

De absolut bästa adventure- 
spelen idag tillverkas av det ame¬ 
rikanska företaget Infocom Inc. 
De har gett ut en serie adven¬ 
tures till 64:an, (även PC, Apple 
m m). Samtliga spel är på disk 
och alla är helt textbaserade. De 
är vardera ungefär 80-160k 
stora, och har i och med detta ett 
väl tilltaget vokabulär och en 
rymlig värld att vandra runt i. De 
flesta av Infocoms adventurespel 
levereras med en massa tillbehör 
till. Det kan vara ledtrådar till 
deckaräventyret, eller en karta 
över området man jobbar med. 
Detta har gjort att man förutom 
att bara behandla text från da¬ 
torn, också får lite andra saker 
att plocka med. Dessutom har det 
gjort spelen betydligt mindre po¬ 
pulära att kopiera. 

Infocom har gett ut en hel serie 
spel, som alla håller mycket hög 
kvalitet. De namn som hörts hit¬ 
tills är: 


• Deadline 

• Suspended 

• Zork I, II och III 

• Starcross 

• Witness 

• Planetfall 

• Infidel 

• Enchanter 

• Sorcerer 


En hel del av dessa finns inte 
på den svenska marknaden rik¬ 
tigt än, men dyker upp så små¬ 
ningom, (får man hoppas). Att be¬ 
rätta mer om alla skulle vara all¬ 
deles för jobbigt, så jag ska senare 
plocka ut ett par av dem, och för¬ 
klara lite närmare vad de går ut 
på. Men först ett kort stycke all¬ 
mänt om dem. 

PROGRAM- 

RECESION 

Alla spel är alltså helt upp¬ 
byggda av text. De har ett enormt 
vokabulär, vilket gör att man 
kan konversera med datorn på i 
stort sett vanlig ren engelska. 
Den förstår till och med flerleda- 
de kommandon som 'take the 
book and then go north’, eller 'ex- 
amine all but the sack and the 
newspaper’. 

Riktningar kan ges i samma 
form som de flesta adventures, 
dvs ’N\ ’S\ ’W\ och 'E'. Dess¬ 
utom kan man be datorn själv 
tänka efter vart man ska gå, t ex 
genom att skriva 'walk around 
the house’. 

Det kan löna sig att sitta ner 
och prova vilka kommandon den 
förstår. Detta brukar dessutom 
vara rätt kul. Prova t ex vad Zork 
svarar när man skriver 'jump', el¬ 
ler 'eat mailbox’... 
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Förutom de vanliga orden har In- 
focoms adventures en del special¬ 
funktioner. Man kan förstås spa¬ 
ra sitt spelande på disk, (för att 
hinna få någon timmes sömn in¬ 
nan jobbet börjar igen), och sedan 
ladda in det igen och fortsätta. 
Man kan få ut sitt spelande på 
skrivare, om man har en sån an¬ 
sluten. Dessutom har alla spel en 
mängd specialkommandon, som 
t ex 'configure’ i Suspended, eller 
'diagnose’ i Zork. Dessa finns 
uppräknade i respektive spels in¬ 
struktionsbok. 

Som exempel pä dialogen i spe¬ 
len har jag tagit med en bit frän 
en match mot Zork I. Jag har 
kommit in i en grottsal, där jag 
träffar pä ett troll. 


ZORK 

Det mesta kända av Inföcoms 
spel är trilogin Zork. Det har bli¬ 
vit så populärt att det finns allt 
frän böcker till bilbakrutesdeka- 
ler att köpa om spelet, (i USA för¬ 
stås). Det lär till och med finnas 
speciella Zork-klubbar där borta i 
väster... Zork utspelar sig i un- 
deijorden. Man böljar dock sitt 
spelande ovan jord, så för den 
ovane tar det en del tid bara att 
hitta ner till rätt nivå. Man ska 
sedan hitta skatter, och på så sätt 
skaffa sig poäng. 


DEADLINE 

Deadline är det första deckarad- 
venturet. En man har mördats, 
och du har 12 timmar på dig att 
lösa mysteriet. Till detta spel 
medföljer en låda med ledtrådar, 
som en liten pillerburk, en trave 
undersökningsprotokoll med fing- 
eravtryckstester, mm mm. Du 
får gå runt brottsplatsen med om¬ 
givningar och förhöra folk, un¬ 
dersöka fotspår, och lyssna på in¬ 
tressanta telefonsamtal. 


SUSPENDED 

Om du tycker att du böljar bli 
skärpt på adventurespelande, el¬ 
ler bara är smart i allmänhet, ska 
du ge dig på Suspended. Det är 
det klart mest komplexa av spe¬ 
len, och lite knepigare att knäcka 
än de andra. Du har fått ta över 
styret över en stad, vars förre le¬ 


dare tyvärr blev sinnessjuk och 
började mörda befolkningen. Han 
lyckades dessutom förstöra en del 
av den tekniska utrustning som 
skulle ha funnits till din hjälp, så 
du kan stöta på vissa problem i 
din uppgift... 

Med Suspended följer en karta 
över The Underground Comp- 
lex’, vilket blir ditt hem de när¬ 
maste 500 åren. 

Sammanfattningsvis kan jag 
lugnt rekommendera alla Info- 



coms kreationer till alla vänner 
av logiskt tänkande och äventyr. 
De är det bästa som gar att få tag 
pä i adventureväg idag, och kom¬ 
mer att ge dig mänga trevliga 
dygn av rikligt kaffedrickande 
och total sömnbrist. Att lösa ett 
av dessa spel ger dig inte en 
kvarts miljon kronor i handen, 
men däremot den tillfredsställel¬ 
se som bara ett riktigt bra adven- 
ture kan ge. n 

Måns Johnsson, WVK 


Program ”Zork 1’ 

tk LI , cht lan tern 

thelamp i s nowon. 

Cellar 

passageway feadingnortKnd '** ® narrow 

south. On the west t ,k f'.! a craw| way to the 
which is unclimbabie H b ° m ° fa stee P meta l ramp 

>N 

The Troll Room 

southandafOTKng'ho]e a S“ t ° theea3ta " d 

ouraword ha» begun toglow very brightly. 

>KILLTROLL 

(with thesvvord) 

The axe sweeps pastas youjuinp aside^ 

>again 

>ANDAGAIN 

badi tr011 * 8moment arily disoriented and can't fight 

againstoneofthc K waMshere fc H S a aSU “ llyleanin,! 

ÄattsaaHHS.? 

>KILLTROLL 

(with thesvvord) 

>again 

attack istnefföS^ The f oTer hat ^ bl ° W ’ soyour 
carrying his largebai.Yo^ml ° CCU P ant J“st left, still 
he robbed you blind first y O0t ^ ave noticec * that 

The axe sweeps past as you jump aside. 

Forts pä sidan 8 
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En assemblerkompilator i Basic 


-VIC20- 



Ett program till alla dem 
som vill försöka pro¬ 
grammera i en kraftfull 
ASSEMBLER anpassad 
till VIC 20 utan att köpa 
en maskinkodsmonitor. 


1. En instruktion heter WOR. 
(Word) Kompilatorn beräknar ope¬ 
randens värde och lägger in värdet 
i tvä bytar. Denna instruktion kan 

t ex användas om man vill skapa 
en lista med adresser. 

2. Assemblerprogrammetmäste 

avslutas med instruktionen END. 
(Mäste ocksä tillfogas i program¬ 
exemplen.) _ 


Ett ASSEMBLER-program be¬ 
står precis som ett BASIC-pro- 
gram av ett antal instruktioner. 
Till skillnad från BASIC-pro- 
grammet så måste dock alla 
dessa instruktioner översättas 
till maskinkod, dvs den form av 
kod som datorns processor för¬ 
står, innan programmet kan kö¬ 
ras. Denna översättning görs av 
ett särskilt program som kallas 
för en ASSEMBLERKOMPILA¬ 
TOR. Innan ett sådant program 
presenteras skall vi se lite pä idé¬ 
erna bakom programmet. Efter 
programlistningen följer sedan 
några exmpel pä ASSEMBLER- 
program. 

Om ASSEMBLER-kompila- 
torn är ett BASIC-program så vo¬ 
re det närliggande och möjligt att 
låta ASSEMBLER-programmet 
lagras i ett textfält (Initierat av 
t ex DIM A$ (999)). Ett sådant 
textfält kan sparas och hämtas 
från band eller disk. Den kompi¬ 
lator som presenteras här utnytt¬ 
jar en annan lösning. Även AS¬ 
SEMBLER-programmet lagras 
som ett BASIC-program! Det in¬ 
nebär att BASIC-editorns alla 
kommandon står till förfogande 
som LIST, SA VE, LO AD, instick- 
ning mellan raderna m m. Om 
man dessutom har programmers 
AID så finns MERGE, DELETE, 
RENUMBER, AUTO, automa¬ 


tisk scrollning av raderna upp 
och ned m m. Det innebär att kod¬ 
ningen blir både lätt och mångsi¬ 
dig. Om kodningen sker utan pro¬ 
grammers AID så laddas först 
kompilatorn från band eller ski¬ 
va. Därefter skrivs ASSEM¬ 
BLER-programmet med första 
radnummer större än 767. Kom¬ 
pileringen sker därefter med 
kommandot RUN. Program (in¬ 
klusive kompilator) kan sparas 
med SAVE. Exekvering sker ef¬ 
ter kompilering med SYS. 


FÖLJANDE KRAV 

Den presenterade ASSEMBLER- 

kompilatorn uppfyller följande 

krav: 

• Maskinkoden kan lokaliseras 
till godtycklig plats som ej ut¬ 
nyttjas av BASIC-programmet. 
(Ev. bör man skydda detta om¬ 
råde genom att t ex ändra Top 
of Memory.) 

• Långa variabelnamn. 

• Upprepade additioner/subtrak¬ 
tioner möjliga i operanden. 

• Relativa hoppadresser/varia¬ 
bler. 

• Decimala eller HEXA-decima- 
la tal och adresser får förekom¬ 
ma blandat. 

• Indrag möjliga för att öka läs¬ 
barheten. 


• Lagring av större dataareor i 
HEX-form. 

• Lagring av ASC-värden av 
text. 

• Förklarande texter. 

• Listning av variabelnamn och 
hoppadressnamn med adres¬ 
ser. 

• Adekvata felutskrifter. 

• Möjlighet att skifta hög och låg 
byt. 

För att möjliggöra detta finns 
följande extra instruktioner: 


HEX 

Möjliggör att i efterföljande bytar 
lagra valfria Hexa-decimala vär¬ 
den. T ex så lagrar instruktionen 
1370 HEX A50063 
de Hexa-decimala talen $A5, $00 
och $63 i tre på varandra följande 
bytar. Detta är enda fallet då $- 
tecknet ej föregår Hexa-decimala 
tal. Operanden mäste innehålla 
två tecken för vaije HEX-värde. 

ASC 

Lagrar ASC-värdena av efterföl¬ 
jande text. T ex 1590 ASC ABC 
lagrar ASC-värdena av bokstä¬ 
verna A, B och C d v s 65, 66 resp 
67 i tre på varandra följande by¬ 
tar. 

REM 

Används på samma sätt som i 
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-apport 


BASIC för kommentarer. Kom¬ 
mentarer kan också skrivas efter 
instruktioner som endast upptar 
en byte maskinkod. 

OBJ 

Anger maskinkodens startad¬ 
ress. Denna instruktion bör för¬ 
utom ev. REM- satser vara den 
första i programmet. OBJ kan 
också användas mitt i program¬ 
met och lokaliserar dä resten av 
ASSEMBLER-programmets ma¬ 
skinkod till den nya startadres- 

cpn T pv 

1020 OBJ $6000 

sätter maskinkodens startadress 
till $6000 (HEXA-decimalt). 

LBL 

Label (etikett) för att definiera 
ett läge i programmet. T ex 
1200 BCC HOPP 1 


1350 LBL HOPP 1 
Pä rad 1200 sker ett test om Car- 
ry är Clear (=0). Om sä är fallet 
sä hoppar exekveringen till ra¬ 
den under rad 1350. LBL an¬ 
vänds också för att definiera rela¬ 
tiva variabler eller en data¬ 
mängd. 

LET 

För att definiera adressen av en 
variabel (eller värdet av en kon¬ 
stant). Ingen variabel fär använ¬ 
das utan att någonstans i pro¬ 
grammet lokaliseras med en 
LET-sats eller en LBL-sats. LET- 
satser bör av åskadlighetsskäl 
placeras i böljan av programmet 
men detta är inget krav. T ex 
1030 LET KVOT = 828 
1040 LET ADRL = $87 
medför att de två variablerna 
KVOT och ADRL fär adresserna 
828 (decimalt) respektive $87 
(HEXA-decimalt). 

Därefter är det möjligt att skriva 
en sats som 

1050 LET ADRH=ADRL+3 
vilken gör att variabeln ADRH 
får adressen $8A. 

Tillsist: t används för att skif¬ 
ta hög och låg byt och sätts fram¬ 
för variabel/uttryck. T ex 
2090 LDA #KVOT 
laddar den låga byten av adres¬ 
sen för variabeln KVOT medan 
2090 LDA # f KVOT 
laddar den höga byten av adres¬ 
sen i ackumulatorn. 

Kompileringen (som tar viss 
tid) sker i två steg. I första steget 


men den intresserade program¬ 
meraren kan säkert modifiera 
programmen efter andra minnes- 
konfigurationer. I bägge fall lo¬ 
kaliseras maskinkodens startad¬ 
ress till startadress 673. Det in¬ 
nebär att exekveringen sker med 
kommandot SYS 673. Ett bra sätt 
att spara den färdiga maskinko¬ 
den är att utnyttja programmet 
MINNESDATA i VIC rapport nr 
41984. 

Programmen är i stort sett 
självförklarande men lägg märke 
till att operanden kan dras in. Al¬ 
la mellanslag räknas bort vid 
kompileringen vilket gör det lätt 
att strukturera programmet. Z- 
mode deklareras med ett Z fram¬ 
för operanden. 

Åke Lundeqvist 


så beräknas alla adresser för va¬ 
riabler och hoppadresser och i det 
andra steget så skapas maskin¬ 
koden. 

Vi skall nu avsluta med två ex¬ 
empel på ASSEMBLER-program. 
Syftet är inte att lära ut ASSEM- 
BLER-programmering utan att 
se hur koden ser ut för vär spe¬ 
ciella kompilator. För att lära sig 
ASSEMBLER-programmering 
se artikelserien ASSEMBLER 
skolan i denna tidskrift eller t ex 
den utmärkta boken Program- 
ming the 6502 av Rodnay Zaks. 
Skillnaden mot de monitorer som 
finns pä marknaden är små. De 
största skillnaderna är att vi här 
har radnummer och att kommen- 
teringen fungerar annorlunda. 
Med viss tacksamhet noterar 
man också att man slipper alla 
specialkommandon. 

Båda programmen förutsätter 
8K eller mer minnesexpansion 


Program 

”ASSEMBLERKOMPILATOR” 


;« Hr- 0 ”" tiXXXXSZ ?— - 

>« ».“.”."srsrr. 

108 P-PSIK-1084 
110 GOSUB1301 IFE>0THENI88 
lie IFD< 18 THE NK »K *L>X D > IGOTO134 

"i sar, 

Val G» )/g i GOTO 134 

s 

186 IFH*< 1-LET-TMEN134 

134 P*PN. > ÖOTOM0 C '*' ,< '‘ >,O *’ M,O * <O *' ><M>IBCISUB83 ®‘V>KV>.O.V-V. 

:s ... 

140 IPM0--END-THEN168 
148 IPM0--WOR-TMENIS0 

M8 JeIS’ '■^OSuéi30^1 K o?GÖTO?66 K M,D * « > > <*’*♦* 1 

148 IFM*^ > HEX*THEN166 

.« pok r ék':f t ^o?:: k s m pb,c, ‘ m,o,< 

134 KCXT1 GOTO 166 

136 POKEK, PSC<MIO0<K0< M> ,W, I > > I K«K* l . ic, v, „ 

138 GOSUB830. I FE >0THEN 188 1 ' * ™ EN 1B6 

160 1F0 b 9THEN0«0-1-K 

168 POKEK ,FH.< O) IK-K « 1 l IFL5K Ol •gTHFNicc 
164 POKEK. FKtHCQMK.K., ° '2THEN166 

166 P-PNiGOTO 138 

168 PRINT-KLftRTI Du 

170 GETA*. IFR..-N-THEKENÖ SYMäOL- TABELLEN < j/N>? 

178 IFA*<>-J-THEN170 

174 PRINT-^YMBOLTABELLl ■ . 

£ . . 

180 GETA*:IFA*=-“THEN180 


11 IFE >0THENI88 


KEXTI00T0I66 


DEC HEX 


Forts på sidan 10 
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rapP 0 ' 1 


Forts frän sidan 5 
>AGAIN 

You aren’t even holding the sword. The axe crashed 
against the rock, throwing sparks! 

>LOOK 

The Troll Room 

This is a small room with passages to the east and 
south and a forbidding hole leading west. Bloodstains 
and deep scratches (perhaps made by an axe) mar the 
walls. 

A nasty-looking troll, brandishing a bloody axe, 
blocks all passages out of the room. 

The troll’s axe barely misses your ear. 

>KICKTROLL 

Annoying the troll isn’t notably helpful. 

The troll swings; the blade turns on your armor but 
crashes broadside into your head. 

>GONORTH 

You can't go that way. 

The troll swings; the blade turns on your armor but 
crashes broadside into your head. 

>GO WEST 

The troll fendsyou offwith a menacing gesture. 

The troll swings his axe, but it misses. 

>LOOK 

The Troll Room 



«“■ Corr >modore 


This is a small room with passages to the east and 
south and a forbidding hole leading west. Bloodstains 
and deep scratches (perhaps made by an axe) mar the 
walls. 

A nasty-looking troll, brandishing a bloody axe, 
blocks all passages out of the room. 

The troll’s swing almost knocks you over as you bare¬ 
ly parry in ti me. 

>GOEAST 

The troll fendsyou offwith a menacing gesture. 

The axe sweeps past as you jump aside. 

>SCREAM 

Aaaarrrrgggghhhh! 

The troll’s axe removes your head. It appears that 
that last blow was too much for you. I’m afraid you are 
dead. 

You have died 


D en stränga kylan har pä ett 
paradoxalt sätt påverkat mi¬ 
na vänner Rykten och San¬ 
ningar. 

Sanningar den trofasta och är¬ 
liga fågeln har påverkats av ky¬ 
lan så till vida att hon mest suttit 
hemma och drabbats av influen¬ 
savågen. Därför har hon ingen¬ 
ting att rapportera om denna 
gang. 

Rykten däremot har blommat 
upp under den stränga vinterky¬ 
lan och är mer aktiv än någonsin. 
Som vanligt vill jag påpeka att 
allt som Rykten kvittrar om ska 
ifrågasättas. Det finns ingen som 
helst säkerhet for att det hon 
kvittrar om har någon förank¬ 
ring i verkligheten. 

Rykten kvittrade även denna 
månad om att Commodore själva 
kommer att ta över verksamhe¬ 
ten i Sverige. De kommer att sty¬ 
ra denna verksamhet från Stock¬ 
holm, närmare bestämt Spånga. 

När försäljningen kommer att 
tas över av Commodore från Han- 
dic Electronic vågade inte ens 
rykten sia om. Handic Electro- 


En fågel viskade 
i mitt öra... 



nics roll i framtiden är också lite 
luddig. Rykten sa att de behåller 
programvaruförsäljningen me¬ 
dan Commodore håller i hårdva¬ 
ran - men även Rykten gardera¬ 
de sig mot detta. Hur ett överta¬ 
gande av VIC försäljningen kom¬ 
mer att påverka marknaden och 


oss slutanvändare är svårt att sä¬ 
ga. Möjligen kan prisbilden på¬ 
verkas gynnsamt i och med att ett 
distributionsled försvinner. Men 
framtiden är väl den som bäst 
kan avgöra om Rykten kvittrar 
sanning eller om det är kylan som 
påverkar hennes fantasi. 
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STOPIT 


för VIC 64 

B ra spel bygger som regel på 
en enkel idé. STOPIT är ett 
exempel på ett sådan spel som, 
trots sin enkelhet, kan få grepp 
om spel^jävulen inom dig. 

Spelet går ut på att få stopp på 
en grön liten boll som rör sig ver¬ 
tikalt och horisontellt på skär¬ 
men. Grundregeln är att man 
måste få stopp på bollen innan 
den når spelfaltets ram. Bollen 
kan stoppas med vilken tangent 
som helst (mellanslagstangenten 
passar utmärkt). Lyckas man 
stoppa den innan den når ramen 
så ändrar den riktning. 

Men detta är naturligtvis inte 
hela uppgiften. Det finns också 
ett antal siffror utplacerade på 
skärmen. Man samlar poäng ge¬ 
nom att stoppa bollen mitt på siff¬ 
rorna. De siffror som är mest vär¬ 
da (niorna) ligger naturligtvis 
farligt nära ramen... 

En programmeringsteknisk 
”finess” med spelet är musiken 
som kan spela samtidigt som and¬ 
ra saker pågår. Detta är möjligt 
genom att använda en s k ”inter- 
rupt ’. Hur programmet i övrigt 
är konstruerat kan man få en 
aning om genom att studera de 
REM-satser som finns instoppade 
här och var. □ 

G Berglund 


}? STOPIT ♦♦♦♦♦ 

14 REM ***♦ 

4£i GOSUB 7900 REM RFAn miic rr 

3O0O g; s™ sic 

ll ' N ” IER * 

80 fö 1524 CS “ 5 ‘*"'i D D*50 -40 D<4) “ 40 PEM PlkTNINGHR 

83 REM 1 «**** I ' E ND*ihij * EM STf *TRIKTNINO 

87 GOSUB 3150 REM RITH c*hm 

99 TOM 4990 * REM WSl! OF^ ECS+20 ' 240 ^0^18,33 P0kECS*24,l3 

}00 *EM ♦♦♦*♦ M8,N ♦♦♦♦. 

Jf® S=S+Cl PS*PEEKCS> 

FPS-32THENP0KES.81 P0KES*CS k 

133 TT-PEE 4 M^* 9 i'Jn N40 ?rHF M GftME 0V E» 

143 POkECSMSiLJ LjIlj?! T ^ NWSU6Jeo 
163 FQRT-0TOD ^XT J LJ+3 
125 GOTO105 

196 REM **** °® 

308 REM NV 0 / SCORE'» 

II® ^O-d'rO,'thÉn310 + ' U “ 30 D “ 50 

34q ^ <R |P ECS+M ' 180 ^ £C S*20.2.0 P0kECS*18,33 P<*ECS*24,13 

g 

360 Frm , “ 1T83 R 0KES?cl?? + * 9 ' 15 ,POKecs *18'33 ; P0KES.81 

320 FC&ÄI ^ EC |;‘ = - E NEXT NEXTI 

RR INTCU*°«fcC0Rt "F>Ö E0 » T -1 TO50 NEXT 

il S <1S7K ^T^ 

O0 ° ftME ° V « »** 

420 REM L1UD 

430 F0p E =0TÖ?5 10 ORr^«T^i S ’ 15 POKECS+18,129 

440 ÄÄ ^f^ 4 ' 15 -' 

450 REM RESULTRT 
460 GOSUB2210 

470 PG-0 PRINTCU*"ajSCORF -Pr 
490 GOTO70 REM lNITllRft E 


Programlistningen 
fortstätter på 
sidorna 44-45 









Program 

ASSEMBLERKOMPILATOR 


•88 NEXT 

•84 PRINT ... 

•86 END 

• 90 PN^EKfp,,u*EÉK< > pC?> , ^M R " 0 ^'^'END 

or;ééKrr;r^r *^ 

800 *0.00. C HR*o> • THENBB2 

■*88 l«XT 

804 M»-LEFT*<««, 3 , 

806 0*.MID*< «*. 4 > 

III 

f.'? ' FM * -m «M»THENB18 
888 □ osr Bh0ftSC< d * >- 0THENU)-1 

af 8 “ • - • > >»■ s—s, o „, t . LEN( ^ B) 

Hl 0,: 1 * s '^ SZSZ?" 0> ' T>< >T * *”"«*■«- i looToeea 

832 

034 POR 1 ■ | TOLEISK 08 > 

836 «».M1O0< O0,|,|, 

f *; f •;:;: 

044 NEXT 

038 NEXTlRETURN v »< J>THENC.VX< J>, e . 0 ,j. v 

all c 'm,’ d*m e ^ ;r2i c,),re ^pn 

064 C -0. por j . , toleIk II> ‘ "™ ENE '' R E TURN 

066 RETURN EN< C 0 > l x.* S C< MID „ c> 

068 T.X.X0... <8,>< * H * 7 »<P>*»>C.16.C.X 

070 PORJ.0TO3 
872 O-r0M )| 5 , o . o . 7 

07 7 6\1?U T RN 

®70 O«TR ???, 00 g 

ni irr ADc ' 6D65697079 6i7i7 3 1 

£ £X£:57~ a " w ~ : ' 
in Sc 8 c L :irr 6iEi6 ' e 

090 O0T00CS,80,3 
898 D«T«BEO.P 0,3 
I 094 O0TnBIT,2C24,« 

096 O«TrtBMI.30,3 
098 O«T«BNe, D 0,3 

, 300 OBTBBPL,10,3 
308 OrtT*BRK, 00 ,a 
304 D«T«BVC,S 0,3 
306 O0TRBVS,70,3 
308 0«T«CLC,I8.3 
310 OrtTrtCLO,08,3 
312 DBTBCLI,38,3 
I 3I4 OrtTrtCLV,B 8,3 

|«I^:S53 n ?- e,B *"'* 

380 OBTBCPY,CCC4C0 ,6 
388 ORT0OEC.CEC60E06 7 
30«» 0«TB0EX,CB . 5 
326 O8T0OEY, 88,3 

, 330 o-iiii.-rr 950594131 ”-- 

| 334 ES;^ 86 ' 7 

336 OBTBINY,C 8,3 
I 338 OnT«Jr*>, 4 C6c g 
310 OBTftJSR,20 ,9 
I 342 DBTftLBL,13,0 

348 0BTBL0Y.»c*4BBBrp, , , 


* NEXT 









\ 


OATALET, -- 

352 DATACSR,4A4E465E36 = 

»« OATANOP, E A, 5 65E36 ' a 
356 OATAOBJ,1B.0 
358 OATAORA.00050910198l l . .. 

360 0ATAPHA,48.S ,,,S -' 

362 onmPHP,00, s 
364 DATAPLA,68,5 
366 DATAPOP,28,5 
368 DATAREM,IF,0 
370 DATAR0L.2A2E2B3E36 2 
0 :I« 9 0".SA6E667E%s.1 

374 OATAR TI,40,0 
376 DATARTS.60 5 
378 0ATAS8C-E0E3E9FDF9EIFIF5 , 

380 DATASEC ,38,5 F,FS '' 

382 DATASED,F8,5 
384 DATASE 1,78,5 

S-Ä^“3 ,8, “' ,e 

388 0ATASTY.8C8494,u 
392 DATATAX,AA,5 
334 OATATAY,A8,5 
396 DATATSX,BA,5 
398 DATATXA,8A,5 
400 DATATXS.9A.5 
402 OATATYA,98,g 
•»04 OATAUJOR ,FF ,0 
406 OATAL 
406 DATAA8C0EFGH 
410 OATASABOH 
412 DATAI 
414 OATAAB 
416 DATAS 
418 OATAABC 
420 DATAABOH 
422 DATAAJ 
424 DATAA 
426 OATAABCEK 
428 OATAA8COK 
430 OATAABOEFGH 
432 OATAABK 
434 DATAABH 
436 DATA ,,| 

438 OATA ,,3 
440 DATA 2,,g 
442 DATA H,, a 
444 DATA ,-,X-, 3 
446 DATA ,-,Y-,3 
448 DATA <,■,*>. g 
450 DATA <,-),y-' g 
452 DATA 2,■,*• g 
434 DATA ,, 8 
436 DATA <,), 3 
438 DATA 2,-, V -,e 
460 DATA ,,0 
462 DATA MNM 
464 OATA DEF 
466 DATA TAL 
468 DATA MOD 
470 DATA HOPP 
472 DATA TOK 

474 DATA END,FOR iryr na 

2 S 

482 OATA >;I'rsGN ?L; TO ' FN ' SPC< BYS ' 0PE "-CU>SE 

1 - 

rSÄsS 1 --”' 

.. 

308 NEXTj?r 3U,REftC " , * !FORJ ' ,TOLENt "*>'><-ASC<MID8<A» J ,,, 64 

=04 FOR|.,To,g IW „, Ä „ •< "0.3.1 >>-64.D* I, 

306 FOR|.0TO5.REAOE»< I > t^KT ‘ ’ ‘ >,hC,<T 

5?å for, * 0 ^4.reaob« ;;^ k t t 

3 12 PS .PEEK<‘p”?u®p EE *fpg 67 J^3--38768. U4 -255. PS-43 

BEADY ETURN ^ PS * 3 ’' 1FRN < 3G0T0512 


Y«7»< y>8 > 

DW I > .CHR*( X) 
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Med subrutinen låter 
VIC 64 riktigt bra 

Förra gängen talade vi om SID-chipet i VIC 64 och gav ett program för framtag- 
ning av korrekta frekvenstal för en svensk VIC 64. Nu skall vi se litet pä hur man 
kan skriva egna procedurer (subrutiner) och använda de sä framtagna värdena 
för att fä VIC 64an att läta riktigt bra. Dessutom skall vi se lite pä hur man kan 
utnyttja procedurer för att göra vissa standardinställningar av de annars så 
komplicerade rutinerna som styr SID-chipet. 




MöDOiKift 


COMAL- 

KURSEN 

fortsätter 


Adress 54272 


STAMMA 1 


Adress 54272+7 


STAMMA 2 


Adress 54272+14„ 


F 

R 

E 

K 

V 

E 

N 

S 

R 

E 

G 

1 

S 

T 

E 

R 




PULSBRADD 




- 

- 


- 

PULSBRADD 

BRUS 

riJL 

it 

-w 

TEST | RINGm! SYNC 1 GRIND 

ATTACK 

DECAY 

SUSTAIN 

RELEASE 


F 

R 

E 

K 

V 

E 

N 

s 

R 

E 

G 

1 

S 

T 

E 

R 




PULSBRADD 




- 

- 

- 

- 

PULS 

3RADD 

BRUS 

n n 

4/V 

/w 

TEST 

RINGM 

SYNC 

GRIND 


















Ki 


STAMMA 3 


F 

R 

E 

K 

V 

E 

N 

^S 

R 

E 

G 

1 

S 

T 

E 

R 




PULSBRADD 








PULSBRADD 

BRUS 

n n 

W 

AA/ 

TEST 

RINGM 

SYNC 

GRIND 


















VOLYMEN 


1 =2 7 =128 

1=2 6 =64 

1=2 5 =32 

1 =2 4 =16 

oo 

II 

m 

CM 

II 

II 

ro 

N) 

II 

1 =2 1 =2 

II 

ro 

o 

II 

—▲ 

1 =2 7 *256 

1 =2 6 *256 

1 =2 S *256 

1 =2 4 *256 

1 =2 3 *256 

1 =2 2 *256 

1=2^256 

1 =2°*256 


12 














































































































































Vi böljar med att titta på SID-chipet igen. Som 
framgår av biiden har den gamla illustrationen 
kompletterats med ytterligare detaljer. Några 
kvarstår som tomma fält, men dem tar vi upp i en 
senare artikel och visar dem därför inte nu. 

Det nya är att vi lagt till de två register, där man 
bestämmer det tonstyrande komplexa begrepp som 
pä engelska kallas ENVELOPE. Pä svenska skulle 
det bli OMSLAG och det är precis vad det handlar 
om. Man talar om ATTACK och menar då själva 
anslagsförloppet, dvs hur tonen startar och stiger 
till sin högsta nivå (kallas också STIGTID). Man 
talar om DECAY och menar dä hur tonen liksom 
”löses upp, minskas” ner till en viss nivå, som pä 
engelska heter SUSTAIN och på svenska HALLNI- 
VA. Detta är den enda faktorn i de fyra komponen¬ 
terna av ENVELOPE som inte är tidsförlopp utan 
en nivå, ett bestämt höjdläge. Till slut skall tonen 
sluta att ljuda och dess avveckling kallas på engels¬ 
ka for RELEASE, pä svenska talar man om AV- 
KLINGNING. 

En av de stora fördelarna med SID-chipet är att 
man kan styra samtliga dessa fyra faktorer för var 
och en av de tre stämmorna. Som synes av illustra¬ 
tonen är det minnesregistren nr (54272) +5 och +6 
för stämma 1, nr +12 och +13 för stämma 2 och nr 
+ 19 och +20 för stämma 3, där dessa värden läggs 
in. Själva konstruktionen är ganska intressant, 
man har tagit och delat 8-bitars-orden i två s k 
nybbles eller halvord och låter dem fungera som 4- 
bitars ord. Det betyder, att vaije 4-bitars nybble 
max kan inrymma värden upp till 15, jämför med 
det förstorade dubbelordsminnet i bilden ovan, där 
det visas vilka värden som läggs in med en binär l:a 
i de olika bitarna. Övre radens fyra bitar från höger 


visar, att värdet pä en binär l:a i första biten är ”1”, 
en binär l:a i andra biten är värd ”2” och i tredje 
biten ”4”. I fjärde biten har den binära Lan värdet 
”8”. Om man alltså ”sätter” alla fyra bitarna får 
halvordet värdet 8+4+2+1 = 15. Och 15 är just 
maximalt värde for faktorerna ATTACK, DECAY, 
SUBSTAIN och RELEASE. 


_REGISTER FÖR PULSBREDD_ 

De andra registren som vi skall beskriva här är 
registren for pulsbredd, dvs register nr (54272) +2 
och +3 för stämma 1, +9 och +10 for stämma 2 och 
+ 16 och +17 för stämma 3. Här används hela 8- 
bitarsordet i registren +2, +9 och +16 för den ”lå¬ 
ga” delen av talet för pulsbredd. Den ”höga” delen 
av talet som krävs för att ge pulsbredden är däremot 
bara ett halvt ord, en nybble och består alltså av 
fyra bitar. Däri kan alltså läggas en maximalvärde 
av 

8*256+4*256+2*256+256+255 eller 4095. Puls¬ 
bredden är endast av intresse när man väljer fyr- 
kantväg, dvs ”sätter” motsvarande bit i registren 
+4, +11 och +18 (fortfarande alltså utgående frän 
SID-chipets start i minnesposition 54272). 

Genom att sätta pulsbredden till halva maximi¬ 
värdet får vi en fyrkantväg med ungefär samma 
förlopp som en vanlig sinuskurva fast kantig. Detta 
är givetvis endast ett sätt att beskriva vågformen, i 
verkligheten ser den säkerligen ut som en sinusväg. 
Genom att ändra pulsbredden kan man fä ändrad 
klangfärg. Man bör dock observera att pulsbredd är 
en symmetrisk företeelse, vilket betyder att 0 och 
4095 i princip ger samma kurva, dvs läter likadant. ^ 


Slut på lagret 

VIC rapport 
årg 3 nr 8 och 9 
samt nr 1/85 är 
slut på lagret. 
Går ej att be¬ 
ställa. 



Heta tips! 

Skriv till VIC rapports 
redaktion! 


Är du VIC-ägare? 
I sä fall är du väl 
prenumerant 
på VIC rapport! 


Tips, frågor och artiklar! 
Skriv till VIC rapports 
redaktion! 


Bli prenumerant på 
VIC rapport! 

Pg 846 46-9 
140:-/år 
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SLUT PÅ MUSIK-TEORIN. 
Dags att programmera 
I COMAL-PROCEDURER 


I COMAL finns en kraftfull konstruktion som kal¬ 
las PROC eller procedurer. Det är del- eller subruti¬ 
ner, som utför en bestämd uppgift och som anropas 
med namn i ett huvudprogram. Samtidigt med an¬ 
ropet kan man i COMAL också föra över parameter¬ 
värden från sitt huvudprogram. Detta är en stor 
fördel eftersom procedurer i COMAL kan vara slut¬ 
na, CLOSED. En CLOSED procedur kan använda 
samma variabelnamn som huvudprogrammet - 
utan att störa eller påverka dem i huvudprogram¬ 
met. Detta är ju inte möjligt i BASIC! Genom att 
introducera värden pä i proceduren använda vari¬ 
abler och konstanter via anropssatsen, kan man 
också få tillbaka ändringar i dessa värden, som 
orsakas av bearbetningen inom proceduren. 

Vi skall inte prata mer om detta utan går rätt pä 
att visa, hur en OPEN, dvs inte CLOSED procedur 
kan användas för att lägga in de korrekta tonvär¬ 
den, som vi räknade fram i förra artikelns program. 
Den var införd i nr 10/1984 av VIC rapport. 

Låt oss göra proceduren så, att vi kan använda 
den i mänga olika musikprogram för att lägga in 
värdena som ger oss en rätt stämd VIC 64-musik- 
maskin. Vi kallar proceduren för LJUDINITIE- 
RING och skriver först det s k ”procedurhuvudet”. 


_ PROC UUDINITIERING (V OLYM) 

Parentesen med variabeln ”volym” lades till för att 
enkelt låta oss bestämma volymen, dvs hur starkt 
tonerna skall höras. Visserligen kommer vi här in 
på en del av SID-chipet som vi inte berört i texten 
om SID ovan, men vi fördjupar oss i detta i en senare 
artikel. För ögonblicket gäller endast att kunna 
höra stämmorna och vi har en minnesposition där 
man kan lägga in maximum talet 15 med binära 
l:or i fyra bitar. Det är det lägst liggande halvordet i 
position SID-f 24, där man lägger in volymvärdet. 

Efter procedurhuvudet skall vi ge programmet 
möjlighet att hitta SID-chipet och det sker med till- 
delningssatsen 

SID:=54272 //Erfarna programmerare brukar i 
stället skriva SID: = 13,25*4096, 
men det är samma sak! 

För att hälla reda på våra notnamn måste vi också 
ha en strängmatris med 3 lägen för var och en av 96 
toner, som är det maximala antalet toner som kan 
återges med SID. Det sker i en DIMensionerings- 
sats, där vi också lägger in en DIM-sats för en nume¬ 
risk vektor med lika många värden men med plats 
för två tal: 

DIM TON$ OF 3*96, VÄRDEN<0:95,2) 

Nu kan det vara lämpligt att bestämma pulsbredd 


och omslagskurva (ENVELOPE) för de tre stäm¬ 
morna. Vi gör detta i enradiga FOR-slingor (sådana 
som inte behöver avslutas med ENDFOR eller 
NEXT därför att de endast är en rad långa). Genom 
att välja startvärde och stegvärde får vi bekvämt 
fram rätta minnespositionerna: 

FOR I:=2 TO 16 STEP 7 DO POKE SID+1,0 
FOR I:=3 TO 17 STEP 7 DO POKE SID+1,8 
FOR I:=5 TO 19 STEP 7 DO POKE SID+1,6* 16+12 
FOR I:=6 TO 20 STEP 7 DO POKE SID+1,0 

Skrivningen pä raden med tredje FOR-slingan kan¬ 
ske skall förklaras litet. Genom att använda detta 
sätt att skriva, underlättar man läsningen av det 
värde man gett in till ATTACK och DECAY. Vi 
minns frän det tidigare att vi arbetar med halvord, 
dvs 4-bitars s k nybbles. Det mest signifikanta 
halvordets bitar utgör egentligen multiplar av 16, 
jämför SID-bildens förstorade del. Genom att dä 
skriva 6*16+12 framgår tydligt at vi lägger in vär¬ 
det 6 i det högre halvordet och i det lägre värdet 12. 
Naturligtvis får vi samma resultat om vi räknar ut 
6*16+12 och lägger in 108 decimalt till helordet 
SID+5! Fördelen med ovanstående skrivsätt är att 
man direkt ser både ATTACK- och DECAY-värde- 
na. 


_STÄNGA MED GRINDEN_ 

När vi nu skall bölja lägga in tonvärden vill vi väl 
inte att SID skall ”låta” under tiden detta sker. 
Därför stänger vi av ljudutgängen genom att sätta 
den s k ”grinden” eller GATE till noll för vaije stäm¬ 
ma. Det sker i en extra FOR-snurra: 

FOR I:=4 TO 18 STEP 7 DO POKE SID+1,0 

Och äntligen är vi framme vid att läsa in värdena 
från de DATA-satser som vi fått fram ur det tidigare 
programmet. 

Naturligtvis skulle vi ha kunnat bygga pä det 
gamla programmet så att dess värden läses direkt 
in till SID, men det är ju en kombination som läsa¬ 
ren själv kan arbeta med, eller hur? 

Läsningen skall ju upprepas ett bestämt antal 
gånger dvs 96 eller lika många som det finns ton¬ 
värden. Det gör att en FOR-slinga passar bra. Vi 
skriver alltså: 

FOR I:=0 TO 95 DO 

för att inleda slingan, stegvärdet är här automa¬ 
tiskt 1 när inget annat värde anges. 

READ TON$(I*3+l:I*3+3),VÄRDEN(I,l),VÄR- 
DEN(I,2) 

Själva avläsningen görs med en READ-sats där vi 
använder I-värdet för att få rätt plats i DATA-sat- 
serna: 


Fortsättning på sidan 22 











Program ”COMAL-SKOLAN” 



10 // LIST "LJUDINIT.L" 

?0 PROC LJUDINITIERING(VOLYM 
50 SID:=13.25*4096 
\0 DIM TON» OF 3*96, VÄRDEN 
>0 // 

>0 POKE SID+24,VOLYM 

’0 // 

'0 for l:=2 TO 16 STEP 7 DO 

0 FOR I:=3 TO 17 STEP 7 DO 

0 FOR I:=5 TO 19 STEP 7 DO 

0 FOR I:*6 TO 20 STEP 7 DO 

0 FOR X!-4 TO 18 STEP 7 DO 

0 // 

0 FOR I:TO 95 DO 

0 READ TON»(1*3+1: 1 * 3 + 3 ), 

0 ENDFOR I 
0 // 

0 DATA "C0 ",1,13 
J DATA "C0#" , 1,30 
J DATA "D0 " ,1,48 
1 DATA "D0#", 1,67 
1 DATA "E0 ",1,87 
1 DATA "F0 ",1,108 
’ DATA "F0#",1,130 
1 DATA -G0 ", 1,153 
1 DATA "G0H",1,178 
DATA "A0 ",1,204 
DATA "A0#",1,232 
DATA "H0 ",2,6 
DATA "Cl ",2,37 
DATA "Cl#",2,70 
DATA "Dl ",2,105 
DATA "Dl#",2,142 
DATA "El ",2,181 
DATA "Fl ",2,223 
DATA "Fl#", 3 ,12 
DATA "G1 ",3,59 
DATA "Gl#",3 ,109 
DATA "Al ",3,162 
DATA "Al#",3,218 
DATA "Hl ",4,22 
DATA "C2 ",4,85 
DATA "C2#",4,151 
DATA “D2 ",4,221 
DATA "D2#", 5,40 
DATA »E2 ",5,110 
DATA "F2 ",5,203 
DATA "F2#", 6 ,37 
DATA "G2 ",6,131 
DATA "G2#", 6,230 
DATA "A2 ",7,80 
DATA "A2#", 7,191 
DATA "H2 ",8,54 
DATA "C3 ",8,179 
DATA "C3#", 9 ,57 
DATA "D3 ", 9,197 
DATA "D3#", 10,91 


OBS! a = $ 


(0:95,2) 


POKE SID+1,0 
POKE SID+1,8 
POKE SID+I,6*16+12 
POKE SID+1,0 
POKE SID+1,0 


värden(i,ij,värden(i , 2 ) 


0580 DATA "E 3 " la 
10590 DATA "F3 
0600 DATA ,, F3 # 1 ’ 61 

0610 DATA „ 

'0620 DATA •G3#- , 13 if- 
10630 DATA " A 3 »’i 4 ’ 17i 
0640 DATA " A3#", 15*1 39 

0650 DATA "H 3 " ^ 

0660 DATA »C 4 - 

0670 DATA -C4#- ia fif 

0690 DATA "D4#"’ 20 ’fni 
0700 nA-r. __* .20,194 


Listningen 
fortsätter 
pä sidan 16 


DATA "D4#" 

0^00 DATA "E4 
, 0^0 data " F4 -'l 2 '* 

10720 DATA "F4# H *24' 
0^30 DATA "G4 
0740 DATA "G4#«’f7’?L 
D«t« -A4 
0760 DATA "A4 # 

0770 DATA "H 4 
0780 DATA "C 5 "’ 34 ’^p 
0790 DATA "C5#"’37’f 
0800 DATA "D 5 "* 39 * 55 
0810 DATA "DS#"’^’.* 
0820 DATA "E5 
0830 DATA “F 5 
0840 DATA "F 5 #" 49 *. 

I 0850 DATA "G5 "’52*80 
0860 DATA "G5#"'55’ff 7 

0870 data - A5 
880 DATA "A5#" “Ml 
0890 DATA "H5 

0900 DATA "C6 

^0 DATA "C6#",’74 e 

0920 DATA "D6 " 7p’f 

07/1 __ * • 1 


■78,11 


- I H " 

930 DATA "D6#" ai ,, 

0940 DATA "E6 

0950 DATA " Fä 

0960 DATA -F6#.’ 0 ' , 

09 70 DATA "G6 * 

DATA -el.’, ,1S| 

"IA G6#",i 10>23 

DATA " A6 ",i 17 13 il 

^ta "A6#.; 124 ; 1 1 q 

DATA "H6 ",13J 238 
DATA "C7 ", 139,’ 199 
DATA "C7#» j148(24 
Data "m « 


0990 

0990 

1000 

1010 

1020 

1030 

1040 


1050 

DATA "D7# 1 

1 1060 

DATA "E7 * 

1070 

DATA "F7 •> 

1080 

DATA "F7#" 

'090 

DATA "G7 " 

-100 

DATA "G7#" 

1110 

DATA "A7 ■ 

1120 

DATA h B7 » 

1130 

DATA "7 - 

•140 

// 


176,32 


180 


249,31 
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1370 
, 1380 
1390 

1400 


1430 
11440 
| 1450 
1460 
1470 
1480 
'1490 
I 1500 


enuproc ljudinitiering - 

0 srtBTiB °bs'o-$ 

l HZ 1 ?'™"*-»" NKNING ' H4 llni ''*.«wlingni N gi 

» POKE J*6 'hIl L G R Jvlif! S JUNI< " 1NG 

9 ENDPROC omslag * 16+ *vklingning 
J '' LIST "GUBBEN>NOAK.L" 

* II PROGRAM EFTER rnptD 

: ..- 

wodinitiwinb,,,, RIGE 

DIM Nö OF 3 

s:“S id 

FOR ii: = 1 To 3 D0 

KONTROLL:*32 
REPEAT 
Nö:■• . 

BFAD Nö(1;3,, LNG 
• THEN 

IF N.Ö<>« 2 i. TUCkl 

I--((Nfl IN TONÖ)-IJ/3 
poke s,ö fl R DEN(If2 ; ,/3 

foke s+i, Värden<I,i, 
else E s+4 ,K0 ntr °ll+i 
foke S+4,KONTROLL 
endif " 1 ' 1 to 40 °° nu<-l 

poff 1 ^! 1 T0 LNG * 40 oo null 

foke s+4,kontroll 

s: +7 

IF S-SID+3*7 THEN s-- 5 rn 
ENDIF S.-SID 

UNTIL EOD 
FOKE SID+24,0 
END 


0 // 

0 DATA 
3 DATA 

& data 
» data 
1 DATA 
' DATA 

’ data 
data 
data 
data 1 
data > 

DATA " 


f."’!'" 2 "* 2 .‘WS8, 

.8. "2",2, "GI-,8, 

1 ’®;" z "* 2 .-fi",8, 

.20,"Z-,24 

, ,S * " z ".2,"Ai",a, 

i 10, “Al#", j0 t «2« 

"• 8 .-2",2,«Gl",8, 

*" « I 0 . ”41 ", 10, »2» 
".8,"2",2,"Fl", 8> 
«8,"2",2,"Gl",8, 
,8,"2",2,"Fl",s, 

» 40, "XX",0 


■Z ; .'2 :-G,.T’!- 

-z'.2,-Gi-: 8 :-2. , j , :;i!"; e, “ 2 ". s 

» » * >2,"El ", 8, "2",2 
2”.2,"Al" 8,"Z" 2 "T5» 

7 »4IU, ’ * » ^» c 2",8,"2" 7 

.-C. nl(t* 8, " 2 “ 7 
2 ,2. *G1 • q _ ’ > +■ i £■ 

»2, “Al ", 20* "2" 2 * 2 '" A ^".8, "2", 2 

■2- , | , -^: ,8 '" i "* a *‘^-.8.-2- 2 
"2" , f’ r ’ 8 '" Z "» 2 ."A1# : ,8,"2"^ 2 

Z * 2 * G1 -. 8 .-2»,2,"E1»,8,»2" 2 
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rapP** 1 


Sprite Editor 


F ör alla er som har en VIC 64 
kan det vara till glädje att ha 
en Sprite Editor. Genom denna 
spar du både papper och penna. 

Programmet i sig är ganska 
långt och det år därför viktigt att 
vara noga med ”inknappandet”. 
Jäkta inte för då kan det lätt upp¬ 
stå något fel. Programmet kvad¬ 
das om någon printsats är fel. Var 
gärna lite extra noga med data¬ 
satserna 2010 och 2020. 


TEST AV SPRITE EDITOR 

Starta upp programmet med 
RUN. Då får du upp huvudmenyn 
där du trycker pä tangent 1. Nu 
visas själva sprite Editorn i funk¬ 
tion. I det nedre hörnet ser du en 
fyrkant, dvs en sprite. Där kom¬ 
mer även dina egna sprites att 
hamna. Prova nu med att göra en 
egen figur i matrisen, du använ¬ 
der dig då av tangenterna S, mel¬ 
lanslag och cursortangenterna. 
Om du skulle vara osäker på 
tangenterna så tittar du bara i 
kommandolistan. 

När du väl är klar med din fi¬ 
gur så trycker du på tangenten = 
och då ska din figur synas i rutan 
(om inte så har du varit slarvig 
när du knappat in programmet). 
Tryck på tangent C och din figur 
försvinner. 

Om du nu trycker pä Fl så ser 
du i matrisen att din sprites 
byggs upp igen. 

När detta är klart så tryck på 
M (som i meny) och här trycker 
du på tangent 4. Datorn frågar nu 
om du har ångrat dig - du tar 
fram ett band och återspolar det - 
när detta är klart trycker du pä N 
(som i nej) och därefter trycker du 
pä RECORD/PLAY pä bandspe¬ 
laren. Efter någon minut är allt 
klart. 

När du stoppar programmet 
använder du dig av RUN STOP 
och RESTORE tangenterna. När 
du sedan vill starta programmet 
igen upptäcker du att din sprite 
inte existerar längre. Tryck då på 
tangent 3 i menyn och ännu en 
gång frågar datorn om du ångrat 
dig - spola då tillbaka bandet - 
tryck sedan på tangenten N - och 
sedan på PLAY på bandspelaren. 
När detta är klart trycker du på 


tangent 1 i menyn och du finner 
då din sprite i det nedre hörnet. 
Tryck på Fl och du finner din fi¬ 
gur i matrisen precis som du läm¬ 
nade den. □ 

Joakim Krassman 


(Kommando tangent) 

RESUL.( = ) 

spritenXu“rram fSinnerfö^ l “ r8e 

Päet. annat häll. Nan all, är klar, 

XLED:YLED.(X),(Y) 

i ofedden 8Prite " ‘ X ° Ch ‘ Y Wet - ““ vi». Pä höjden 

I MENY.(M) 

Återgår till huvudmenyn. 

I SUDDA.(S) 

Suddar ut den befintliga rutan som cursorn står pä 
EX.FARG l:EX,FÄRG2.(«-),(f) 

ÄäÄSr N * rdU 16 «^r.ä börjar 

COL.(@) 

CLR.(C) 

I)ATAhl)) h<!la matri *"' dv,den du e 6r d 'lt mönsterpå. 

ÄÄE"' ka " S ‘ UderaS “ h Dp han aven 

HOME.(H) 

Flyttar upp cursorn i det vänstra hörent 
Fl.(Fl) 

Kopierar ut den synliga spriten i rutan över till den stora matri- 
F3.(F3) 

ON/OFF läge för extra färgerna. 

(Mellanslag) 

Plottar ut en punkt där cursorn för tillfället befinner sig. 

(Cursor tangenterna) 

Flyttar cursorn. 


Programmet 
finns på 

sidorna 18, 19 och 23 
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Program 


”SPRITE EDITOR” 
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NEXT 


812 K»*;* e7S*n™S*f?********«M 

S»!Ä5SSsÄ&n,s: 

^ PWEV * 3,8S ^ 

988 PEM** Bn nii ltr^ c *****♦♦““*♦ 

?99 »JTINEN. , t 

ffl . w . 

iss ssiÉisijfåg ***"""' *"""" “««“• - 

'BRiÄi&HjS» 

1020 PRINTTflI<ie>..£2 f*™*» 1 

{§ «jÄ»> : *9 C$ 

ag siSIlvr- 

IS ^g-g^ F «* ™— II I H I UJ N/Crp 

fe 0 • 

hs srs»??5rS»^^ 

1133 'CLIRSORN. ♦ ♦ 

1 M0 V-33248 ********************* 

1130 POKEV+28,0 

IffiiÄsS!:SISa|cr^ , - , “ 


I«5,I4CT.isk.IW3.1W9,|«5. 


l'Jnw<2]> PnPT.irn-.. ZZZ 

PPTflII0-5. 1 U5 } l*? 1 ,5t2 DM< 1J NF.'iT PETUPM 
2020 D0TRI66V ing ilS' 23' ,i€S - 1 503. I v 3fl , 

2997 RE«*m«i;2Lii2?;irS 5 '1823.1863 .1903 1383 

2998 SEWweiiv c r 

2999 REH***«^4*****i»Ii«2 ftV MTft.** 

3000 PfRIMT”-}" PtwSui*£t*************** 

3010 PRIMT»i H ,,^ 2 ®: R <»fV+! n 

3030 ÄÄ' PP ' UmT PA P Ä-" 

3080 prJK,;^™* "VMgMFI :« 3 » 

1212 pp iiirTHriJ p :.pV-- T - tiT - T - w 'W.is *■.. 

3090 IFnJ!-i P TWM?t?r* : "• >THFH »W 
3100 lFR*»“i“THEN3 

. 

fj ?8 c»!*. ♦♦•ääss:;:; 

fifl 

3140 PPINT"U3T(!" t P r C ; C * 1 NEXT 

31« K r I o F ?o , C;? c i°^•■”^ C nI?S E ' ,PR,HT "•^ - 'STfl PfitCN, 

3WSÄÄ7W»,. 

!.W.sa^SK:: 

3180 0PEN4,4 
3190 FORJMT03 

3 3 |?2 PRINTM.RC» c.C +1 IIEXTB 


PRINr-.T 

ni i^.^ssr ?ftrsE ^ wn <j/w " 

3270 GOTO3000 D FP,NT -W' GOTO 20 

4040 PPINT"T'Töd • «??*********#♦♦*#♦♦♦♦ 

•1070 PPIMT-ftr.m,^.” ,fl ™ Hl DflTfl MANUELLT - 
4090 Ä'lN E Ä T ^ PP ?V »?»•* 

/■* SSWSK-PTSKffi'™ 


POKFW . 0 POKEV+3. n POfrgv+21. 


Forts på sidan 23 
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raPP 0 ^ 


Om FORTH 
— Program 
exempel 


Liksom i nummer 10 för¬ 
ra äret har det blivit dags 
för några programlist- 
ningar. 

Den här gängen kan 
jag erbjuda en definition 
av ordet ROLL, ett ord Lista 1 
som ingår i FIG-FORTH- 
standarden, samt ett 
stackvisningsprogram. 


LAR DIG 
PROGRAMMERA 


ROLL är ett ord som låter använ¬ 
daren manipulera med stacken 
även om det ligger fler än tre tal 
där. Om man exempelvis har 5 
parametrar pä stacken så kan 
man ”rolla” fram en i taget med 
frasen 

5 ROLL 

Stackvisningen kan vara lämplig 
for ”nybörjare” för att undersöka 
hur stacken bär sig åt vid olika 
kommandon (använd t ex stack¬ 
visningen för att se hur ROLL 
fungerar!). En nackdel med pro¬ 
grammet är att det bara tar ett 
ord i taget, så om du vill skriva 5 
ROLL måste du dela upp det i två 
steg. Försök gärna att ändra pro¬ 
grammet så det klarar flera ord. 

Det kan kanske vara en lämp¬ 
lig övning till nästa artikel, då 
jag skall försöka visa en lösning 
på det problemet. Nästa artikel 
kommer förutom det innehålla en 
rescension av Leo Brodies nya 
bok: ”Thinking FORTH”. Den tar 
upp FORTH som ett språk och en 
filosofi (!) för problemlösning. 

Med det avslutar jag denna må- 
nadsdos av FORTH och hoppas 
att ni kommer att ha nytta av 
ROLL eller stackvisningen, men 
framför allt att ni inspireras till 
att skriva egna program i detta 
annorlunda men mycket använd¬ 
bara språk. □ 

Ola Johansson 



« 18 

< FIC-FORTH ROLL 
PORTM DEFINITIONS 


OJ-8L0615) 


) 


‘ COOE ROLL < rem 

| ««ve aoc. Tax, bot lm p„« 

' L0Ä ’ D °SEc P STi. B B0T IN i, L 0 oa' 

rSt mp 5TÄ t 1>Ev • Ea until. plb. 

NE»T JMP. EN ' ™ EN> XSfiWE 
EN0-C00E 

»S 


DE*. 


5CP » 


118 

p IC-F0*TH 


»OLl 


OJ-8%0613 
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3 TOPTh m mn } n9 * r 9 ° m ,t0ndor d x FJC- 

* 6*-an. "pth*..»11 

« 

; o.llan.ioj. 

i on9 * r 

1 via anrop.t av poi i Pn *T«e*«n 

o., .»i .an::: :: r ™ ::. u y n ty 

..a , * rotation.n- rmno. 

i SS ... 

««*> BE5IN UNTIL.) 1F ™ EN 


23 Sub^utmtn SETUP Mul... „ 

24 scr ong«i ov c, till toi 

ö tiXl #n orb»t«or«o N . 
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-nä *' 1 


Forth 


Lista 2 


SCO » 36 

f ' lNTERa tTIU STACKVISNINC 

2 forth 

3 FORGET TASK : T #SK , 

* * USER se 


OJ-061106) 


.RST ;» EMXT i 

: •‘■'T 17 EHIT , 

! - RVS 18 EMIT , 

•80FF 166 EHIT , 

■ CURROS 

hohe -oup IF 0 „o i,; oa , !?i 

-OUP IF 0 DO LFT L00P 

.LFT LOOP THEN 

•STRCKPOS 

r lur- 

OEPTH SP« 30 i suop . 

SHOWSTRCK 

OEPTH 10 > 7 ? ESB0r 

l F oop f EPTH “ 1 “O 


( -- »> 


( — 

1066 660 32 
I .STRCKPOS 


--> 


OJ-06U06) 


R « 136 

® < INTERRKTIU STRCKUISN1HG 

3 v ?:r: ur ‘ ... 

; F.ro.nm.ör ... V»* 01,Ko 

; .- 


i tn 


Fort» dttntng 
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Lista 3 


SCR 


• 37 

( STACKVISNINC FORTS . , „ 

( 'or ttot tnt ne Fr.n ,Kor. J6) OJ ' 8 * U0 *> 


0FIELD 

20 0 CURPOS 60 SPACES , 


( — .) 


7 : OOIT 

9 £? ™ B ° P f P « mCUTE 75TACK 

-oup SrSp '?h En , <NUMBE "> ^p 

2 ■ COMMANO 

l 0FIELD 20 0 «»F05 8UERV DOlVV* 

3 : HEADER 

7 P ?“ 0 ” CURP0S •' StocKRn • i; o’ 

9 OUIT' • J HOHE 01 -* 0 ,' < å*e OndO <ov,,lu * 0 **a 
9 H0M£ • ®*-A ’S S T ACK VISNING * , 

3 UISNINC 

HEAOER BEGIN SHOWSTACK COMMANO* #> 

I 

< Olo JOhontion 1906 ) 

R 137 

< STACKVISNING fort, _ , 

OJ-8LU06) 

ForT.Rt.ntng Fr.n fkor . Jé cmj> 

tidigorv 


* Ö^IELD 'luddor ut 
3 * oimorido t/to 1 • t, 

VISNING «r huvuoaRf,n,tion#n. »o» ut _ 


18 

19 

20 

21 


/ ° >0 JOhon**on 1986 (C) 
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Forts från sidan 14 

”COMAL-SKOLAN” 

Sen var det inte mer i den här FOR-snurrans verk- 
samhetslista! Den avslutas med satsen: 

ENDFORI 

Nu kan vi lägga in alla DATA-satserna med tillhö¬ 
rande tonvärden. Se programlistan. 

Sist avslutas med procedurens slutrad: 

ENDPROC LJUDINITIERING 


PROCEDUR FÖR OMSLAGSKONTROLL 

Vi vill ju också kunna lägga in värden för ADSR, 
dvs Attack, Decay, Sustain och Release, tonens om- 
slagskurva. 

Den ser ut som på en bild, som fanns införd i VIC 
rapport nr 3 årgång 2. Vi återger bilden här i något 
renritad form som visar hur denna funktion ser ut i 
SID-chipet. 


Här behöver vi en längre parameterlista, som 
låter oss sätta värden separat för stämma, attack, 
decay, sustain och release. Vi får följande procedur¬ 
huvud: 

PROC OMSLAG)STÄMMA.STIGTID,SJUNK- 
NING, HÅLLNIVÅ, AVKLINGNING) 

För att ”rikta” in oss på rätt stämma lägger vi i en 
tilldelningssats in ett värde pä en variabel ”J”, som 
bara används inom proceduren. 

J:=SID+(STÄMMA-1)*7 

Denna tilldelning hämtar värdet pä STÄMMA och 
låter J fa rätt värde beroende på om man väljer 
stämma 1, 2 eller 3. 

Själva tilldelningen av värden på omslagsvaria- 
blerna ADSR sker i två satser: 

POKE J+5, STIGTID*16+SJUNKNING 
POKE J+6, HALLNIVÅ*16+AVKLINGNING 

och proceduren avslutas med 
ENDPROC OMSLAG 

Se även programlistningarna. 

Comalskolan fortsätter i nästa nummer av VIC 
rapport. 

Å Fredriksson 



Långsam attack ■«-^ Långsam release 

Långsam decay 



Snabb decay 
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4i te 

4120 

4130 

4131 

4132 
4140 
4145 
4150 
4160 
4 J 70 
4180 
41«0 
4200 

4210 

4211 

4212 

4213 
4220 
4230 
4240 
4250 
4270 


4230 

4290 

4300 

4310 

4320 

4330 

433! 

4332 

4333 
4340 
4350 
4380 
4370 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4460 
4470 


O=V0L'fit> PR mit 
ONQGOTO?o 41 4.-. , 

. 

c=0 kf *NUEU. INMATNING" 

gfåiZ'' W«T' ° '0OPPV£ •3255THCN4170 

PEri^r*******^*J**+* 4 *4»4»**M4» 

® •..v*» 

60P ls0T063 
PPINT41 ,fc rs 
NE.VT CL0SE1 

a^-Wär-. Tpvcr 

SSStä 

0PEN1 .i N 0 ™E1MP40 
P«3R.!«0T063 

g¥ T#, - ,r "> 

PPINT"Win'Zp 6 ^T 0 )!Lrtp T C * C+ l POPE'1 ■ F(C) NEXTJ 

. Tpv ° PÄ en St,- 


p* PH TANGENT.' 


• <VN> 


PEADy. 


VIC kassettservice 

VIC rapport erbjuder sina läsare följande service: 

Alla längre program som publiceras i VIC rapport kommer att finnas till förfogande på en 
kassett, som du kan prenumerera på. 


Pris Prenum. 

3 nummer/kassetter 100:- 

6 nummer/kassetter 190 

10 nummer/kassetter 300 


Icke 

Prenum. 
125:- 
215 
325 




Om du är intresserad är det bara att fylla i nedanstående blankett och skicka in den till VIC 
rapport. Kassetten kommer sedan direkt hem i brevlådan. 

Blanketten skickas till VIC rapport. Box 42054, 126 12 Stockholm. 


Min prenumerantkod är. 

och jag beställer en prenumeration på 

□ 3 kassetter för 100:- 

□ 6 kassetter för 190:- 

□ 10 kassetter för 300:- 

Namn:__ 

Adress:__ 


Jag är inte prenumerant och beställer en 
prenumeration på 

□ 3 kassetter för 125:— 

□ 6 kassetter för 215:- 
Q 10 kassetter för 325:- 


Postadress: 
Telefon:_ 
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VIRUS - VIC 20 


E tt adventurespel pä svenska. 

Kan det vara något? Här 
kommer en listning till en 16k 
textadventure i sjukhusmiljö för 
VIC 20. Nedan följer en liten be¬ 
skrivning av möjligheterna i 
VIRUS. 

När Du startar programmet så 
kommer frågan 

'VILL DU LADDA IN SPARAT 
SPEL?’ 

Om det är första gängen Du kör 
VIRUS sä svarar Du NEJ och ditt 
äventyr böljar. I annat fall kan¬ 
ske Du har utnyttjat möjligheten 
att spara det spel Du håller på 
med för tillfället (se nedan). En 
finess som kan vara bra att ha 
eftersom spelet tar ett par tim¬ 
mar. Ett JA laddar in spelet och 
Du kan fortsätta i handlingen där 
Du slutade. 

När Du väl har kommit förbi den 
här punkten så skrivs lite krafs 
ut och Du får sedan frågan 


U eller UTRUSTNING 

Visar vilka prylar du släpar med 
dig. 

Som vi såg ovan sä går det att 
spara sitt spel så att man inte be- •. 
höver bölja om från böljan igen 
nästa gång man ska spela VI¬ 
RUS. Detta gör man genom att 
stoppa in en blank kassett och 
spola tillbaks denna till böljan. 
Man skriver sedan 

SPAR SPEL 
och spelet sparas. 

Nästa gång Du startar upp så 
stoppar Du sedan in denna kasset 
och svarar JA pä den inlednings- 
fräga som vi diskuterade ovan. 

Om Du vill avsluta utan att spara 
spelet så kan Du ge ett av följande 
kommandon: 

END 

SLUTA 

STOP 


och programmet avslutas. 


VAD GÅR VIRUS UT PÅ? 

Din uppgift är att rädda de fem 
patienterna som har olika sjuk¬ 
domar. Tänk på att många sjuk¬ 
domar är smittsamma och att lä¬ 
kare normalt undersöker... 

Man bör kanske inte heller låta 
avlidna Patienter (om detta nu 
skulle hända) ligga och skräpa. 
Otrevliga lukter kan ju uppstå... 

Och snälla du, låt inte patien¬ 
terna lida allt för mycket! Nästa 
gäng så är det kanske du som be¬ 
finner dig i deras situation. 

OBS! Programmet kräver att 
man har 16K expansionsminne. 
LYCKA TILL DOKTORN! □ 

Å Hedman 


'VAD SKALL JAG GÖRA NU?’ 

Nu kan Du tala om för Din Gubbe 
vart han skall gå, vad han ska 
göra etc på det lilla sjukhuset. 
Följande kommandon bör man ha 
kännedom om, men observera att 
det finns åtskilliga ord men att 
man får komma pä dessa själv. 

K eller KARTA 

Visar en karta över sjukhuset. 

T eller TITTA 

Talar om vad din gubbe ser. 

Ö eller ÖST (Pundtecken om Du 
ej har åäö) 

Gubben går mot öster. 

På samma sätt kan man gå i and¬ 
ra riktningar. Vilka riktningar 
som är möjliga framgår av ut¬ 
skrift vid TITTA kommandot. 
OBSERVERA dock att dörrar etc 
med fördel öppnas innan man går 
igenom dem. 


Program ”VIRUS’ 


READV. 


11 PRINT".Ti PPINT PPINT 

Ii ppJ^-Tu. 1 , p R ri' fe ’c T ^?Lc'' KRPE !! ,:,Ä ETT S-H*** "ED SM ARESURSER. 

20 PFxLu :-XX«0 06 STROflPS PATIENTERNA. " PPINT PPINT PPINT 

? U LADDA" PRI NT '‘SPARAT PROGRAM." INPUTAI 
40 IF LEFT*<A*,1>."J»THENXXX-I0 OOTO100 
“50 IF LEFT*‘A*, 1 >="N"THEN 100 

SPRINT PPINT">flD MENAP DU MED ",A*."?“ PRINT PRINT PPINT" 'AG FPAGADE 

120 DIMJX<5,6> 

122 DIMDIIO), IX<23> 

130 F0RI*1T03 
140 JX<I,0>»I 
130 F0RJ=1T06 
180 UX<I,J}«1 
170 NEXTJ NEXTI 
172 PR?I=1000 
175 Al*="M«PKT 
180 F0RI=1T05 
190 RNX» I NT * RMD 1 ' TI > 44+1 > 

200 IFRNX»1TMENJX'1,31=38 GOTO240 

210 IFRNX-2THENJX<I,31=39 G0T0240 

220 IFRNX“3THEN3X<I,3>=0 GUTO240 

230 JX( I.31=35 

240 NEXTI 

250 jy.( RNX, 31=37 

290 F0RI=1T09 

300 DXC1 1=0 NEXTI 

310 Dy.< 1 >=1 DX'4;*1 



GOTO30 


A2*="HVILA " A3*=“BURK 


(<<<?<<< 
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20 

— 

Ä-3 tidningar 

10 RO >7 tidningar 

21 Rf 

17:60 





05 

C 

<0 

1 

c 

<D 

»- 

:0 

**- 

I 

12 

to 

> 

< 


§ 

3 


Ott POSTGIROT SVERIGE INBETALNING / GIRERING B 

2 • Konto • Avg • Bel • 

Meddelande Ull betalningsmottagaren 

beställer: 

En årsprenumeration på VTC rapport 140:- 
VTC rapport årg nr a 

VIC rapport årg nr a 

VIC rapport årg nr a 

Till postglrokonlo nr 

8 46 46-9 

Avgift 

Kassastampel 

Betalningsmottagare (endast namn) 

HANDIC PRESS 

VIC rapport årg nr a 

VIC rapport årg nr a 

Avsändare (namn och postadress) 

VTC kassettservice nr a 

T-shlrt med VTC motiv a 49:- 
.st typ 1 2 storlek S M 

+Porto 

Summa kronor 

1 DETTA FALT FAR ANTECKNINGAR IN 



Egel kontonr vid glrering 

Svenska kronor ^^^^ore^ 

TE GORAS - RESERVERAT FOR POSTGIROT 




n 


846469#02# 








































































GRATISANNONS för VIC prenumeranter 

Jag är prenumerant på VIC rapport och vill ha gratisannons enligt nedanstående 
manuskript införd snarast i VIC rapport. 

Namn:. 

Adress:. 

Postadress:. 

Prenumerationsnummer: . 
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VIC rapport, Redaktionen, 
Box 42054,126 12 Stockholm 
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Program 

”VIRUS” 


% 


330 F0RI-1T05 
340 JX<I,2)=19 
350 NEXTI 

355 PSX=6 BX=0 SX=0 

IX<I) " 4 1«XTI IX<5>=1 
365 IX<22»«50 IX<7>»14 
370 F0RI«18T02I IX<I>=4 NEXTI 
380 FORI=8TO10 IX(I>=, NEXTI 1^17)«3 
385 IX<23)*3 IX<9)*100 3 

387 JX<3»5>=2 JX<4.6»=0 

E0RIM1TO16 IX<I>=2 NEXTI IX<22)-50 

M0 OOSUB3050 GOSUB3I30 G0SUB6100 GOSUB6400 GOSUB7700 OOSUB7800 GOSUB3000 OOSUbJ 
'fS oCIS 0 0 Sffl 0 Äf 80 GOSUB6560 GOSUB.0000 

fÄS-KÄ 81 ™"™ 3170 

SI IRSC^^SSIS 1 *^ 

580 IFV3*«"RNV"THEN3190 

5» Ä;^Ä^S^ VD ”°^*-”®"ORLEFT,<VB. 3 >.-V^-C«flB..V-THEN3200 

IS »«-«nw. 

620 IFV3#« " VaC " THEN4O40 
630 IFV3B*"STA " THEN4100 

{r. V *"! U " 0RV3 »-"UTP “ THEN420R 
650 IFLEF T* < V*,2 >“"TR"THEN4 35ft 
«S {^3*-:SL g: °RV3#- “L aM"THEN 4608 
fi7? 8HC ' H3 *“ "DoR" THEN4800 

loa LRS *ftNDH3B*"JOU"THEN50O0 

680 IF V3B* LRG"THEN5050 
690 IFV3$«"RIN"THEN5100 
700 IFV3$»"LAS"THEN5300 
710 IF V3f* " BL A "THEN5720 

& Ä^ÄST' “ “* «" sm» - »tw» 

740 IFV3*»"TRV'THEN5900 
750 IFV3*«"TVA"THEN6300 
JFV3*="TaN"THEN6500 
770 IFV3*»"UHD'THEN6700 
780 IFV3B»"FVL"THEN7300 
<90 IFV3*«"INJ"ORV*«”GE"THEN7500 
800 IFV3*»“SPR"THEN20000 
850 IFRBO " " THEN998 

I ooto5 «’ 

!IS ^'^"^•'.TfiB , *8>,"5 INT ^CHR^ <8> PRINT &OTO500 

I1020 PRINTTRB<12),"B 
1030 PRINTTRB'8) ''* 

1040 PRIH^-MMWWM, 

1050 PRINTTRB<8>."« 

1060 PRINT” STAB- • 

1070 PRI NT" FoRRAB 
1080 PRINTTRB(8).“P 
1090 F'R 1N T" NMNaw: 

1100 PRINTTRB'8)."». 

1110 PRINT" KONTOR 

1120 PRINTTRBC8)."0 

II 30 PR INI" wmmmt 
1140 PRINTTRB<8> • "■ 

1150 PRINT" MEDICIN> 

1160 PRINT" FoRRAD 
1170 PRINTTRB<8)."* 

1180 PRINr-psMw».»... ■ 

1190 PRINT" ISOLEP-4 
1200 PRINT" ING 

1210 PRiNT"srrRvc» "i 

1220 GETRT IF R*»"”THEN1220 

iSS SÄJ®*" 0999 

iä R^ÄSST: «! 

1300 PRINT”JUNE. 112213 

1310 PRINT"Ffi« -RUT... a 

1320 PRINT"," PRINT PRINT (JOTm210 
|l34 ? 0 PPi'nT"™ ^^FÖRTECKNING" PRINT- 

•'ANDfi VIRUS. 

-’aNBH VIRUS. 

iehrndungsm. 

IEHRNDLINGSM. 

IEHRNDLINGSM. 

IEHRNDLINGSM. 

IEH. RV SMÄRTOR. 

I LC*"' - IEH. RV FEBER. 

£2 P * fiHif/^^SFoRESKRIFTER." 

oS, INT ni 1 f^MNDfl VIRUS. 

ufo Äi! PP,NT ppimt pr int 

1500 PRINT-3BID 1 Ii 

I 1510 PPINT PRINT** rPLING fiV VIR1I9 '• pdtkit*» •—-- 
.SPRINT"» IRC- UTRUSTNING" PRINT 1 (OBLINGSSKAL OCH 

1588 PPInI-I 'flnr^ 07 flV PflT1ENT - ” PRINT 

(.ii i 1 , : ^:oS?^xr iNT print print 



1350 PRINT"2 
1360 PRINT"3 
1370 PRINT"4 
1380 PRINT"5 
1390 PRINT"6 
I 1400 PRINT"7 
1450 PRINT"8 
1460 PRINT"9 


PRINT",ID 


PRINT" 


PRINT 

PROVUTRUSTNING).' 
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raPI**- 

Program 

”VIRUS” 


igara» '. 

i ■“Wv£3, tor -__ 

;S S8gSff,*m '””•■nmm ... , 

1683 PRlNT"-?^är" B, *~l V « J oCLIG” PRjm-I 

SS» "*' *'"*«• 

! 3 f SS^"warwa— 

Z*12 L5?wr 


? S”S e c —***«* 

TO " -— 


..»i GOTOI210I 

PP,W PP,NT PPlNT OdTo/ 


l?eå 81700 PRINT" 01210 /r 'fRLlGfiPE EN» »,\., PPINT 

fe Si'»,»™-”"::;?;? "»w •«■ 

fe rei "«T “" «# ">■»>».i* 

11840 PPn r"*HJFr? , c: WL!N0 W SMAPTOE - ‘ ,( PPI,,T PP,,JT »1« — 

10 50 P*jINT-Äg** pp INr PP, NT 

JT "* ww 

te.. s-^£^^s'ssrr 

fr&tSiB^iP^imSv «*« J ^ TOui- »<» 

12020 PPIHT p P i NT ?i ,tt ^''LLOR •• ^GDERHH" ppj^y., 

|U0R.'. ' NT Pft,N7 "* *NV«(D SKVDIKHTB "' porm 

/2050 PPJ NT p p , DSUTR V 'B“ PRINT-J KOuravr ^TfiKT 

IfS sk; sak ‘ w ' B ' ,s “ J* ” SB " r 

28 £? v ^'* chr * <32)The ^ 

||230 0 ^K-rp-r^' OO ^260 

fef^rrr* 

feadpunsri&r 
fST 
EFS? 


" p PlNT“ kJ 


/2460 PRi T nt»,t.. - * Ba0 

fe /^OörHE^Ii'®" 20 OOSOB2420 

—— 

I24R0 ,rr„. DW ’ S P"8RÄNNfiBP« • Bctii*_ 


S£S 5 Kr~^~„ i 

- —-pp INT „_ tt 1 

--- rNT skrivbgp 








gppOfl 


D" __ 

i? 

«ässs»- 

'Esirr« Ä '^&,r- 

|«0 IfIs^the.po, ^ ME “ NEPICIN» ^*<23>-4 THENpRI 

ipj /S| 3 Ä%a 7 &?*®®^ TNiNo " 

2660 I Fpf;’, fff:p I NT '• rJcZrZ? BETRNPE", 

2670 IFpIir.oJ^^lNT"-)/ i iPEPS W«L" 

2680 IFP^!~l HE,lpp IUT"i 7 *~? tm HMPP" pp>mt„_. 

f|90 nLHÖfOT^flLLT 7 &*/*&.«*»>• 


*•660 IFP S; : J? 8 t T 8 NI 

2670 IFpcv-lél^ENPPim-..-. - PEPSONBL “ 
2680 IFP^!~l HE,lpp IUT"i 7 *i' r '* *NRPP« 
2690 IPC*oi?^ ,PP INT" -T 7 ?* ^DIGT i 

fff] rV " TrsT ^“ 

is?i , ;lT ;THO *" NT ' p “ ,,Ew -•■ 

f|2| eÄtJII^ 830 

1 p ii*f Äl>> ö ; asss» 

Iåi ""<> Sts® -' 

II** 1 * STEpl ' 

29fi% ! * “ S T" ,yr 'D » 

jsssssssp®■* ■ 

äS^Äroj 

J 3030 UEXTi mflSC(rin ' t,p <* -l*P~" 

I^S^rm ps ^'- 3 '"'-.8 

|W3 THEN3070 

[ 3060 IPPS7;.;|!|!|::- 8THe(/PETIJp N 

3075 L.^ <9)mioR ^<?^0T^^ p £TUPN 
3100 Pr* £-J : ??J°‘33$TEP? 

% g?3° ° * ,:n 

>85 lési&täZ" 

3130 Ppf^*I^PEr,jp t( 
i" PPlNT ^-V '11 

r *0 PDti 


• 1 TTVf * 


PP 'HT';n,, t 

"END 


/ "e PPrwT"»^_ 

I SS 

. 


L*l I" 


ewd 


PP1NT PPI NT .,--. I 

■T-PEH SPPi DEP SI0 | 


RIKTNINGEN. "00T0999 


||§f 

I 3400 Ä? 1 *' * ' " THEN -000 

3^05 iVrI^-^JHENS^ 

I is* 

t?" 
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rapP 0 * 1 - 


Program 

”VIRUS” 


3520 
3530 
3 700 
3720 
373» 
3740 
3750 
4000 
4002 
4010 
4020 
4030 
4040 
4045 
4050 
4060 
40/0 
4080 
4090 
4100 
4110 
4120 
4130 
4140 
4145 
4150 
4160 
4200 
4205 
4208 
4210 
4220 
4230 
4240 
4250 
4260 
4270 
4280 
4290 
4310 
4350 

4352 

4353 
4355 
4360 
4365 
4370 
4380 
4390 
4400 
4410 
4420 
4430 
4440 
4450 
4455 
4460 
4420 
399 
4480 
4600 
4605 
4607 
4610 
4620 
4630 
4640 
4658 
4660 
4670 
4680 
4690 
4700 
4710 
4720 
4730 
4740 
4750 
4755 
4760 
4770 
4780 
4790 
4792 
4795 
4800 
4810 
4815 
4830 
4835 
4840 
4900 
4910 
4920 
4930 
5000 
5005 
5010 
5020 
5030 
5040 
5050 


00T0999 


sSS-» 

GOT099?' ' r> MED fmRN RttCT INI EN STrtNr.n n oo 

PRINT^ER Ij -'T* 0 ' LAST ■■ rntr ' FPlNr " "* ^ 1 HUVU ® 6T <M* 

D °T^®40 <flLL Jf * VACKA79?.. 00T 

Ö 013flH ^*«^NS*»r ,NT " PEr,rtN * WKEH" GOT0999 

ST ^ "* «"** 
ellep ^—— 

SSr^T" räWEN «■* stano». 

^' TI tPI2<l>-0 T »€NO O SUB2280 Print-...„ 

F0RI*18TO22 

MEXT { F,5{< 1 > * 0 t HENC.OSUB 2280 PftINT«rX 

F0RI«1T05 - 

jj^fJ*'«»O2»®jxa, 2) . 0THEf)PR 
G0T0999 m *cNT ",I 

JFHf c n RR0V ,, THEN7PtM 

INTE *** G0T0999 

S?^wÄ«e Tfl? " °° t °999 

Ä™ 3 

' 3 ' THENP ESF0PE 00TCM420 
IFmi££^ 3 ™ "•«* 00T09? 3 

1 GOT0999 

ii 

IFi;:, V0L .NM -l NT „ir pi ' flp J"TE SI riITS8 r H iTD H M °° T °402O 

ht 1,2.-PSWNI.JSKVftL. H T P «TIENT. 


• R3t.pjr. if 


■i r k hk INTE SfrMUT^o M r D ., w 1*1*020 

“ GOT 0999 

GOT04020 . 2-0 GOTO 

" cixöi . I 


{FPXO0THENP 
tFJ2<V0L'HTI 

rFH* F " "THENPPIn?» 

Ä H,;?; 0 < oTNi;::; fiT .. T HEN4740 

p^rr 023 

NE.yn T rest6^" H3,THEnrest We OOTO4690 
"♦» G0T0998 


rj0T09 * 

inl^SjnTo*»' " 0070999 
mB:* 7 ;P^°™ ej " ,h * 0010999 


^<V«L< 

FOPI-1TU3 

nexti , ' 2> “ 0THEN479 3 

liÉsfSäS 0 ™” 

rnooo 


HVCXL0PI":00T0999 


IFH3T ;> •• ^THENrSrni ’ "" "^TÖ* 

GOT0999 

a Ä «“Ä ? a? H fLLEP v " STPft ”' iNp,jTfl * gosub2is0 

IFDl.vn .»irNENPP St.7 1 '-'G70999 

<8SST"«»-f«S&r ’ WT " «™» 

- - 








m. 


Hi-___ 

SUF^ämmsssmr "~——J 

»i» „ * ,rc fiTT JfK SKftLL *™ "w or 0 t pJ 

§ps».«, «,„,„ r " ^ -® , «* -i 

5103 Ut 1NPUT 0* 00U(T"», W | 

fp SSE#^ | 5 < I» ä " "”'” ”«■“ 

”il iSroiÄ ^® 00 

, ??30 PRlNT^ ^Sr^S 70999 
'5400 GOTO5300 ' EN Bc " '” G0T09»-4 

'”?! ®iÄ»s2SS5S5» 

llfl sÄh^^^t-» ' 


:' ITTflR ^ s * "*"» SIK*. GOTO*» 
TrmoA *** 


IgJ* SI^«VRL<Hi> 

af oSÄUKTaf: »'»»sa. 

28 ”' » .30..I«,. „„. ,„. |?3e ^ 


pSF 

fe isflllpr 

IE I 

IIfil , r ^^S?T P ’' '"' -<IUEN AP VILKTM?-)« : go T 09?9 

fe 

||I|® PETUPn • l7 THEHt ;.«0 ReTUP,) 

fe ses .? 

I 6?00 lFHfB""TLip».DC. ’" r 

jlpwSÉ 

1^430 PETI IPN 0THE NPRINT "«-y w fi 

IS50O IFHf»“»THEUPp r iJT» •MtTTflD AV SflTTMHT VIPliGi 

»«*TMN-«jn.^-3_ ' ' ,mP " 


OOTO3170 


INGET ATT t«noa 


"EP." G0T099J 


' „ ‘•'vmnr^c i THFNPPt 

«• ^ : «5»"SSK! <3 ^nt^, go T09 ,, 

Iv0 !?Z\ : * T *'"c£rr™ T * NI * , °" goto?,? 
ol^0 ,FTCK ' 5 THENPP,- NT T^ + 4 EPaHOE f „«.; 

6?f?0 PFTIIpw PINGPftPNfl SVAPT. ••R W E J Fnorc »_ 

6600 IFi'-T?,0 NOT ^ EJ F0PT S«TTA 0PBETR 

660^ TX.0 TC>0^ttMri^:W»I* GOTO?.,o 
6,00 IF<LEFT*. Hl. r!??INJ“-I «g THPPflnF 


got| 


s® 88 ».-.— 

5340 pp;Ö^T™P^ 


[afe sg 


Programmet fortsä 
på sidai 
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FRÅGA THOMAS 


Det första brevet att besvara 
kommer frän signaturen ”Und¬ 
rande” och lyder som följer: 

HEJ! Jag är en lycklig ägare av 
en VIC 64 och har ett par frågor. 

1. Hur bär man sig åt för att 
konstruera en egen teckengene¬ 
rator i en annan videosektion än 
den normala, t ex videosektion 
ett? 

2. Vad krävs i hårdvara för att 
kunna programmera i Assem- 
bler? 

3. Hur bär man sig ät för att fä 
någonting joystick-manövrerat? 

SVAR: 

Jag utgår från att du redan vet hur 
man konstruerar en teckengenera¬ 
tor och vad du vill ha reda på är hur 
man ändrar videosektion. En tec¬ 
kengenerator upptar 4096 bytes 
(256 x 8 x 2 = 4096), och en stan¬ 
dard sådan finns placerad på ad¬ 
ress 53248 och framåt i ROM. 

Videochippet kan bara hämta in¬ 
formation som ligger inom en och 
samma videsektion (16k-omräde). 
Vilken sektion som ska användas 
bestäms av de två minst signifikan¬ 
ta bitarna ur adressen 56575 enligt 
nedan: 

Block Bitvärde Ramarea 

0 11 0-16383 (normalt) 

1 10 16384-32767 

2 01 32768-49151 

3 00 49152-65535 

Men det är fler adresser som 
måste ändras om man vill byta vi¬ 
deosektion. Pekare till skärm och 
teckengenerator samt skärmsida 
för skärmeditorn. För att få fram ad¬ 
ressen till bildminnet tar man vär¬ 
det av bitarna 4-7, från adressen 
53272, multiplicerar detta med 
1024 och lägger till videosektio¬ 
nens startadress. Detta värde divi¬ 
derar man med 256 och lagrar det¬ 
ta i adressen 648. 

Detta görs nu om, fast med bitar¬ 
na 0-3 och utan någon 648-ad- 
ress, för att placera teckengenera¬ 
torn inom videosektionen. Nedan 
visas ett programexempel för att 
använda videosektion 1 med skär¬ 
men placerad på adress 17408 och 
teckengeneratorn på adress 
18432. 


10 POKE 56576 ,(PEEK(56576) 
AND 252) OR 2 
20 POKE 53272,19 
30 POKE 648, 72 

Över till nästa fråga angående as- 
semblerprogrammering. Svaret på 
din fråga är NEJ man behöver inte 
en speciell hårdvara, men däremot 
ett program som kodar om assem- 
blerkod till maskinkod. Sådana pro¬ 
gram ligger i prisklassen 300 kr och 
uppåt. Att använda joystick som 
manöverkontroll i ett program är in¬ 
te speciellt svårt på VIC 64, efter¬ 
som uppläggningen av joystickre- 
gistren är logiska. Man använder 
sig av adresserna 56321 och 
56320 för att läsa av joystick 1 re¬ 
spektive 2. För att kunna läsa av 
joystick 2 måste man ställa om ett 
datariktninsregister (56320) först, 
och sedan inte glömma bort att 
ställa tillbaka det i normalläge. Ne¬ 
dan visas ett enkelt avläsningspro- 
gram som skriver ut joystickvär- 
den. 


10PRINT 255-PEEK 
(50321 );TAB (25) 

20 POKE 56320,0:PRINT 255- 
PEEK (56320) POKE 
56320,255 
30 GOTO 10 


FIG A 

NORMALT 


Nästa brev som ska besvaras 
kommer från Joel Grönning och 
lyder så här: 

HEJ! Jag är en datorintresse¬ 
rad kille på 16 år som gärna skul¬ 
le vilja ha svar pä hur man gör 
interruptrutiner pä VIC 64? 

SVAR: 

Med interruptrutiner menas en ma- 
skinkodsrutin som anropas och ex¬ 
ekveras 60 gånger i sekunden un¬ 
der tiden att datorn uträttar något 
annat. Normalt skall datorn anropa 
en maskinkodsrutin på adressen 
$EA31. Denna adress ligger lagrad 
i en annan adress, nämligen 
$0314. Adressen $0314 kallas för 
en vektor, med det menas att man 
hoppar till en startadress som lig¬ 
ger lagrad i denna adressen, vek¬ 
torn. När man vill lägga in egna ma- 
skinkodsrutiner i interruptproces- 
sen så ändrar man hoppadressen i 
vektorn $0314 till att peka på sin 
egen maskinkodsrutin. I slutet av 
denna rutin måste man hoppa till 
den ordinarie M/C-rutinen på 
EA31, JMP$EA31. Interruptpro- 
cessorn kan liknas vid figur A och B 
nedan. 

Rutinen du vill ska exekveras får 
inte vara för lång eftersom den då 
kommer att försinka datorn i dess 
arbete. Och rutinen måste alltid 
hoppa till $EA31, annars avstannar 
datorn. Med lite extra experimente¬ 
rande kommer du snart att behär¬ 
ska rutinen. 

Thomas Wernersson 


$0314 


-+ SEA31 


FIG B 


EGEN RUTIN EXEKVERAS 


$0314 


’$EA31 


$4000 (Egen rutin) 
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TIPS & FORSLAG 


PROGRAMMERINGSHJÄLP! 



Kassettmotorstyrning 
genom POKE-kommandon 

I register 1 hos 651 O-processorn (outputregistret) sker styrningen. 
Bit-funktionerna är följande: 

Bit 0: omkopplare för Basic-RAM; 

Bit 1: omkopplare för driftsystemrutiner; 

Bit 2: omkopplare för teckengenerator-ROMs; 

Bit 3: omkopplare för datautgångarna; 

Bit 4: kontroll av PLAY-tangenten pä kassettspelare; 

Bit 5: omkopplare för kassettmotorn; 

Bit 6+7: ej fastalgda. 

Genom A=PEEK (17 el 32:POKE 192A:P0KE1,A kopplas motorn ur. 
Genom B=PEEK(l)ANDNOT32:POKEl92,B:POKEl,B kopplas mo¬ 
torn på under förutsättning att PLAY-tangenten var nedtryckt. 
Register 192 innehåller motorns brytarställning och lägesförändring 
Genom: 

10 C=PEEK(1)AND 16 och genom fråga 

20 IFC=0 THENPRINT” PLAY TANGENT NEDTRYCKT”:END 

30 PRINT” PLAY TANGENT EJ NEDTRYCKT” 

Härigenom kan programförloppet göras avhängigt av tangentställ¬ 
ningen. 


D etta program är ett program- 
merings-hjälpmedel. Med 
denna rutin inlagd i din VIC 20 
går det att lista programmet du 
arbetar med på ett lättare och smi¬ 
digare sätt än vanligt. Åtminstone 
har jag själv blivit irriterad mänga 
gånger på att inte kunna stanna 
listningen och sedan fortsätta an¬ 
tingen upp eller ner i basicrader- 
na, speciellt om man inte har nå¬ 
gon skrivare. 

När programmet laddats in och 
körs kommer en bild upp på skär¬ 
men, som visar vilka SYS-adres- 
ser som gäller för in- och urkopp¬ 
ling av rutinen (skriv upp dessa). 
Ladda sedan in det program som 
du skall arbeta med (om du inte 
skall börja pä ett nytt). Program¬ 
met, som är skrivet i maskinkod, 
kan användas oavsett hur mycket 
minne du har anslutit till din VIC. 

Efter att rutinen är aktiverad 
med SYS-kommandot, startar du 
listningen med ”L" som i listning 
och därefter ”RETURN”. List¬ 
ningen startar dä frän första pro¬ 
gramraden. Vill du börja lista frän 
en speciell rad anger du bara rad¬ 
numret efter ”L” ex:”L 5G RE¬ 
TURN". Fortsatt listning sker när 
’CRSR-vertikal” hälls nedtryckt. 
För listning uppåt (baklänges) 
tryck ”SHIFT” och samma CRSR- 
tangent. Skärmen kommer då att 
rensas och raderna listas överst 
(på skärmen). När listningen bac¬ 
kats till önskad rad, fyller du skär¬ 
men genom att släppa SHIFT- 
tangenten något före CRSR-tan- 
genten. 

När någon ändring skall göras i 
programmet, som du arbetar med, 
tryckt endast ”RETURN” och änd¬ 
ra sedan som vanligt. Återgå till 
listningen med ”L och RETURN” 
så fortsätter listningen där den 
slutade. 


Forts på sidan 33 
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Lägg in diskett-rutiner 
i dina program! - VIC 64 


O fta kan det vara praktiskt att lägga in en diskett¬ 
rutin i sitt basic-program, med möjlighet att läsa 
directory, radera filer eller formattera nya diskar, - 
utan att bryta sitt huvudprogram. Läser man in directo¬ 
ry med LOAD"$”,8 så spolieras ju dessutom basic- 
programmet, och måste laddas in på nytt. 

Här följer ett program med "diskett-rutiner”, som 
förutom ovanstående även läser av ev error-medde- 
landen från diskettenheten. Man kan lätt länka ihop 
denna rutin med andra basic-program, (förutsatt att 
man har några hundra bytes kvar i minnet - och det har 
man ju som regel). 

Följ nedanstående tågordning, så kan du lätt länka 
ihop diskett-rutinerna med andra program: 

1) Tryck in "diskett-rutiner” enligt bifogad program¬ 
lista. Provkör så att du vet att rutinen fungerar. Spara 
programmet med namnet "diskett-rutiner" på en disk. 

2) Ladda in ditt huvudprogram i datorn (dvs det 
program du vill förse med diskett-rutinerna). 

3) Skriv följande i direktmod: 

S=PEEK(45) + PEEK(46)*256-2:H=INT(S/256):L= 
S-H*256:POKE43,L:POKE44,H 


(d v s du ställer om pekaren för basic-start till det första 
programmets slut) 

Lägg disken med "diskett-rutiner" i driven och skriv: 

LOAD"DISKETT-RUTINER",8 

Återställ pekare för basic-start till normalt värde med: 

POKE43.1 :POKE44,8 

4) Lägg in lämpligt tangent-val från ditt huvudpro¬ 
gram, för att komma till diskett-rutinerna (...GOTO 
6000), och ändra återhoppet från diskett-rutinen (rad 
6012), till lämplig rad i din huvudmeny. 

OBS. a) Att om ditt huvudprogram har rad-nr över 
6000 måste diskett-rutinen numreras upp så att den 
ligger helt ovanför huvudprogrammet. Var i så fall ext¬ 
ra noggrann med att ändra goto-gosub-adresserna på 
korrekt sätt! 

b) Om du redan tidigare har "trixat" med startadres¬ 
sen för ditt huvudprogram, så inser du lätt att du även 
ska återställa pekaren (efter laddningen) på motsva¬ 
rande sätt. □ 

BG 
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”PROGRAMMERINGS- 

HJÄLP” 


_KAN DRÖJA_ 

Om programlistningama innehål¬ 
ler radnummer med stora hopp ex: 
100 och nästa rad heter 6000, kom¬ 
mer det att dröja något när du lis¬ 
tar bakåt över detta hopp. När du 
är klar med ditt program och/eller 
skall spara det pä band eller disk, 
bör listningsrutinen kopplas ur 
med den andra SYS-adressen, som 
angavs vid inladdningen av ruti¬ 
nen. Denna ligger dock kvar och 
kan aktiveras igen, om du så öns¬ 
kar (och om inte datorn stängs av). 

Rutinen upptar endast 225 byte 
i toppen pä RAM + 94 av de 96 
lediga byten i minnesområdet 
673-767. Detta gör, att om du vill 
lista ett program med denna ruti¬ 
nen, som använder samma minne- 
sområde för någon subrutin i ma¬ 
skinkod, (som programmet för 
rättning av stryktips), så kan du 
inte köra det programmet och se¬ 
dan försöka lista det med hyälp av 
denna rutinen, eftersom listnings¬ 
rutinen då delvis blir överskriven. 
Vad som händer, om du försöker 
är, att bara radnummema listas. 
Det är dock mycket sällan som 
denna konflikt uppstår, och om 
den gör det, så är det inte svårt att 
kringgå problemet när man vet 
orsaken. Om du skriver END i 
stället för NEW på rad 140, sä kan 
du testa, att programmet funge¬ 
rar, genom att låta det lista sig 
själv så att säga. 

PS. Spara programmet innan du 
kör, för det är så lätt gjort att skri¬ 
va fel i datasatsema. DS. □ 

Y Lindblad 


MICROSOUND 64 
DIGITALT MUSIK 
SYSTEM 

4 oktavers keyboard i full storlek 
MIDI och DIGITAL SAMPLING! 
Gratis info inom Norden från: 

MICROSOUND 

Box 5049, S-691 05 Karlskoga 
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PELREKORD 


Nu sprudlar det av nya spelprogram på marknaden bl a har 
BALLY/MIDWAY släppt sina spelhalssuccéer "TAPPER" och 
"SPY HUNTER", men också överraskningen "UP n DOWN 
som nu provar lyckan i programtopplistan (temte-plats) för 
64:an! 

I nasta nummer har undertecknad utförliga recensioner av 
dessa "grymma" program' JUMPMAN rasar ett steg och 
snart utses nog LUDWIG till SWEDEN JUMPMAN MAS¬ 
TER 1 Men "ZAXXON" förblir det populäraste programmet för 
64:an, det fullkomligt sprutar in rekord! Hur mår lillebror (VIC 
20) då? JO då 1 Aven om det inte öser in rekord så försöker nu 
AMOK" få plats på softwarelistan! 

NI får gärna skriva eller kopiera av "rutan" (se nedanl). så 
slipper ni klippa sönder VIC rapport. 

SPELREDAKTÖREN C E J 



. VIC 20 

1. AVENGER VIC-1901 

1. 27 140 Joakim Jerndal. Skärholmen 

2 10 800 Ken Månsson, Sölvesborg 

3. 6 850 Magnus Tibell. Göteborg 

2. JELLY MONSTERS VIC-1905 

1. 2 601 160 Peter Johansson. Lyckeby 

2. 2 499 120 Rudy Birkner, Smygehamn 
3.1 631 860 Pelle Gustavsson. Sundby¬ 
berg 

3. JUPITER-SUPERLANOER VIC-1907 

1. 139 900 Björn Lindman, Huddinge 

2. 128 800 Mathias Sånemyr, Stockholm 

3. 120 200 Paul Jönsson, Genarp 

4. RAT RACE VIC-1909 

1. 113 040 Niclas Andersson. Eskilstuna 

2. 101 520 Pär-Olof Håkansson. Bjårred 

3. 96 200 Olll Pesonen, Angered 



5. AMOK (BUG BYTE) 

1 67 350 Jasfd Ragnarsson, Borrby 

2. 40 000 Johan Kuuse. Gråbo 

3. 26 160 Torleif Tjöre. Västra Lindome 


VIC 64 

1. ZAXXON (SEGA) 

1. 572 780 Martin Malmström, Kavlmge 

2. 463 370 Rudy Birkner, Smygehamn 

3. 326 550 Per-Olof Karlsson. Filipstad 

2. CUP-FINAL (Commodore) 

1. 14-0 Peder Isaksson, Osmo 

2. 9-0 Leif Lindström, Örebro 

3. 8-0 Magnus Linder, Mölndal 

3. JUMPMAN (EPYX) 

1. 125 400 Ludvig Gran. Luleå 

2. 63 650 Peter Blomgren, Handen 

3. 62 100 Sverker Edbladh, Landskrona 

4. SNOKIE (FUNSOFT) 

1. 33 240 Magnus Linder, Mölndal 

2. 30 400 Håkan Åkerberg, Vällingby 

3. 30 180 Jens Lund. Borrby 

UP’n DOWN (BALLY MIDWAY) 

1. 81 720 SPELREDAKTÖREN C E J 

2. 23 040 A S A PRODUKTION 

3. 1 140 Martin Kreanzmer, Lindome 


VIC 20 □ VIC 64 □ 

Namn. 

Adress. 

Postnr Postadress 


Datum 


Spel . 

Erhållna poäng 

Intygas av målsman eller annan myndig person. 
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WORMY - VIC 64 


W ormy är ett spel som bygger 
pä "masken”. (Det har även 
vissa likheter med det spel som 
vann tredje pris i VIC rapports 
tävling.) 

Här gäller det att äta grodor. 
(Grymt men roligt.) När man ätit 
upp alla grodor i första nivän sä 


ska man gä vidare till nivå två. 
Detta gör du genom END-skyl- 
ten, utan att hamna på kroken 
(instruktioner finns i spelet). 

Masken kan styras i fyra rikt¬ 
ningar med joystick, eller tang¬ 
entbord. 

Karl Hörnell 
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Easy Interfacing Projects for the VIC 20 


P ä Prentice-Hall har författar- 
laget Jim Downey, Don Rinds- 
berg och William Isherwood gett 
ut en intressant bok, for dem som 
vill använda sin VIC 20 till annat 
än spel. 

Man säger i förordet vad 
mänga vet, nämligen att VIC 20 
är en i mänga stycken bättre ma¬ 
skin att koppla ihop med yttre en¬ 
heter än t ex VIC 64. Man lovar 
ocksä att lära ut hur man gör sina 
egna ROM-baserade program och 
får igäng dem utan väntan pä 
långsam laddning frän kassett¬ 
band. 

En god vän till recensenten har 
använt VIC 20 i en sa avancerad 
applikation som det till sjörädd¬ 
ningstjänsten knutna ”SAR”- 
programmet. Det fungerar bra ef¬ 
tersom VIC 20 har en sä snabb 
processor och den av honom an¬ 
vända VIC 20-datorn står påsla¬ 
gen dygnet runt. 

En annan bekant berättade att 
man använt endast inkromet 
frän VIC 20-maskiner för att 
montera in andra datoriserade 
styrutrustningar. Han hade ock¬ 
så använt en VIC 20 för process¬ 
reglering - med gott resultat. 


TILL NYBÖRJARE 

Men åter till boken som ger 
mänga goda tips och anvisningar 
hur man gör och kopplar tillsat¬ 
ser till sin ”lilla” VIC 20. Boken, 
som är skriven pä en lättfattlig 
engelska, är inget uttömmande 
verk om avancerad maskinvaru- 
konstruktion. Den riktar sig till 


nybörjaren/amatören och böljar 
med enkla exempel. 

En genomgång av kapitelru¬ 
brikerna ger en god bild av vad 
man fär för pengarna som boken 
kostar. (Den kan veterligt inte 
köpas någon annanstans än Eng¬ 
land, men de flesta bokandlare är 
glada ät att få hjälpa till att skaf¬ 
fa hem ett exemplar). 

Första kapitlet heter Compu¬ 
ter Fundametals och det är precis 
vad det handlar om: grundläg¬ 
gande datorbegrepp. Man gör en 
genomgång av 6502-processorn 
och vilka signaler som går till och 
frän 6502:an. Man talar om binä¬ 
ra bytes och bit-ar, om datorns 
anatomi och ger en minneskarta. 
Skrivcykeln och läscykeln dvs de 
förlopp när processorn lämnar 
ifrän sig och hämtar in informa¬ 
tion samt de olika aktuella sig¬ 
nalnivåerna presenteras i utförli¬ 
ga diagram. Dataformat och lo¬ 
gik-kretsar presenteras utförligt 
med historiska utblickar över ut¬ 
vecklingen fram till dagens kret¬ 
sar. De olika logikfunktionerna 
är väl beskrivna liksom hur de 
används i special kretsarna 7400, 
7402 och 7404. 

Andra kapitlet berättar om hur 
man använder maskinspräk pä 
VIC 20. De viktigaste sex register 
som finns i en 6502 presenteras 
och man kan läsa om hur man 
använder hexadecimal adresse¬ 
ring internt i maskinen. Ma- 
skinspråksformatet får utförlig 
behandling internt och man tar 
upp SYS-kommandot i BASIC. 
Ett enkelt programexempel i BA¬ 


SIC visar hur man enkelt kan 
POKEa in ett hexadecimalt pro¬ 
gram i minnet. Det bygger pä tek¬ 
niken att man först omvandlar 
hex-tal till decimaltai och däref¬ 
ter skriver in värdena i en DATA- 
sats. 

Hur man finner lämpliga platser 
för att lägga in sina maskin- 
spräksrutiner och hur man an¬ 
vänder 60 Hz interrup-vektorn 
far ett par sidor i slutet av ka¬ 
pitlet. 


SJÄLV BYG GER_ 

Tredje kapitlet tar upp VIA, dvs 
6522 eller Versatile Interface 
Adapter-chipet. I ett tydligt dia¬ 
gram visas hur det är kopplat till 
User Port, användarporten. Ett 
kopplingsschema för en logik- 
probe som används för att testa 
logikkretsar och en utförligt be¬ 
skrivning hur man själv bygger 
sin prov-apparat får också ett par 
sidor. De tvä I/O-portarna samt 
registret för in/utmatning till¬ 
sammans med en minneskarta 
över hela VIA-chipet beskrivs 
som inledning till hur man byg¬ 
ger sin egen s k header, som an¬ 
vänds för att testa tillståndet hos 
I/O-ledningarna. 

Kapitlet fortsätter med några 
övningar i digital utmatning till¬ 
sammans med tillhörande kom¬ 
mandon och kopplingsscheman 
för en adapter, som medger an¬ 
vändning av ett vanligt standard 
22/44 experimentkort. Härefter 
följer några experiment med digi¬ 
tal utmatning och avrundas med 
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behandling av 6522-klockorna. 
Man visar hur första klockan kan 
användas som frekvensgenerator 
och talar om s k one-shot-mode. 
Det används t ex för att styra en 
servo-aktiverande funktion som 
kräver varierad pulsbredd för att 
styra dess läge. 

Den andra klockans något an¬ 
norlunda arbetssätt beskrivs och 
man visar pä hur skift-registret 
kan användas. Styrsignal-led¬ 
ningarna CB1 och CB2 som Finns 
i användarporten presenteras bå¬ 
de i en utförlig tabell och i text. 

De olika spänningar som tilläts 
ligga direkt mot VIC 20s olika 
portar behandlas utförligt liksom 
hur man styr högspännings-en- 
heter. De olika likströms- och 
växelströms-belastningar som får 
användas utan risk för skador pä 
utrustningen behandlas med ut¬ 
gångspunkt frän den i England 
vanliga hushälIsspänningens 110 
volt. Här måste alltså en svensk 
användare vara uppmärksam pä 
dimensioneringen av de i krets¬ 
schemana inlagda motstånden 
och transistorerna. Kapitlet av¬ 
slutas med hur man känner av in¬ 
matning både med låga nivåer 
och biPpolärt, liksom hur man 
känner av högspända signalni¬ 
våer. 


TALSYNTES _ 

Fjärde kapitlet behandlar talsyn¬ 
tes. Man presenterar ett billigt 
tre-chips-system frän National 
Semiconductor, kallat DIGITAL- 
KER. Dess funktion är utförligt 
dokumenterad och den duktige 
elektronik-hobbyisten bör kunna 
bygga en egen DIGITALKER 
med ledning av kopplingssche- 
man och text. Hur tillsatsen pro¬ 
grammeras, ges intelligenta fra¬ 
ser och får utökad vokabulär do¬ 
kumenteras i både program och 
flödesschema i slutet av kapitlet. 

För lödkolvs-artisten följer se¬ 
dan några intressanta kapitel om 
olika mekaniska och elektronis¬ 
ka tillsatser, som kan aktiveras 
med VIC 20. Hur man styr ett 
servo, kopplar in det och pro¬ 
grammerar det samt hur det kan 
användas under interrupt-styr- 
ning blir detaljrikt omskrivet. 
Multipla servon, stegmotorer och 
styrning av dem blir fråntaget 
varje hemlighet - både program¬ 
mässigt och mekaniskt. 
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I ärlighetens namn måste man 
väl medge att det inte hänt så 
mycket på maskinsidan på hem¬ 
datorområdet sedan VIC 64 kom 
ut för ett par år sedan. På COM¬ 
PUTER ledarsida ryktas det nu 
om häfliga maskiner både från 
Commodore och Atari. Det skall 
bli spännande att se vem som 
kommer först och, framför allt, 
vad det blir. Det lär i varje fall bli 
ett strå vassare än Sinclairs QL. 


_ SPELLISTNINGAR _ 

”Paratrooper” är ett spel som går 
ut på att släppa fallskärmshoppa¬ 
re ner pä små öar. Ju mindre ö 
desto högre poäng om man träffar 
rätt. Det hela kompliceras av att 
olika fallskärmshoppare väger 
olika och att det blåser. Listning- 
ar finns för både VIC 20 och 64. 

”Rescue of Blondell” är ett spel 
helt i maskinkod. På sin flygande 
matta ska man ge sig iväg för att 
rädda kungens dotter, Blondell, 
som sitter fången i ett högt torn. 
Men tornet vaktas av elaka fåg¬ 
lar som beskjuter dig med blixtar. 
Som försvar kan du själv skjuta 
blixtar. Guld och Gröna skogar, 
eller åtminstone höga poäng, till 
den som lyckas rädda prinsessan. 
Listning finns till VIC 64. 


_NYTTA_ 

”Guitar Tuner” - stäm din gitarr 
med hjälp av datorn. Basiclist- 
ning finns till VIC 64. 

”Tbrbo Täpe” är enligt COM¬ 
PUTE! ett av de bästa program de 
någonsin publicerat. Program¬ 
met, som är helt i maskinkod, gör 
att man kan spara, ladda och ve¬ 
rifiera program till bandspelaren 
lika snabbt som till disk drive. 
Programmet är en guldgruva om 
du inte har råd att köpa en disk¬ 
drive och tycker att bandspelaren 
är ”seg”. Decimal maskinkods- 
listning (Basicladdare) finns för 
både VIC 64 och VIC 20. 


_SPEL_ 

Samtliga spel i Gazettens janua¬ 
rinummer finns listade för både 
VIC 64 och VIC 20. 

”Trap ’Em" är ett enkelt, men 
finurligt, spel för en eller två spe¬ 
lare. Det hela går ut på att bygga 
stängsel för att pä sä sätt inhägna 
sin motståndare. En god portion 
strategiskt tänkande behövs för 
att lyckas i det här spelet. 

TIDNINGS¬ 

RECENSION 

”Chomper” är spelet där man 
styr den lilla roboten (Chomper) 
med joystick för att samla in 
energikristaller pä en främman¬ 
de planet full med elaka soldater 
som står i vägen. Det hela är på 
tid. 

”Kablam” är, som namnet an¬ 
tyder, ett spel det smäller om. Din 
uppgift är att med hjälp av en joy¬ 
stick fånga de fallande bomberna 
i en spann med vatten. Lyckas 
man inte så smäller det! Spelet 
som är helt i maskinkod kräver 
snabba reflexer hos spelaren. 

”Math Dungeon” är ett exem¬ 
pel pä s k ”utbildningsspel”. I det 
här fallet gäller det matematik 
och spel inslaget består i att klara 
sig undan diverse frågvisa mons¬ 
ter. Spelet är av adventuretyp 
vilket här innebär att man måste 
kunna lite engelska också för att 
klara sig. 


_NYTTA_ 

”Disk Merge” är ett användbart 
program om du har en disk drive 
och vill lägga ihop sparade pro¬ 
grammoduler till ett program. 
Rätt använt kan det spara åtskil¬ 
liga timmars tråkigt inknapp- 
ningsarbete åt dig. Rekommen¬ 
deras! □ 
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Forts 

”Easy interfacing” 


Hur man använder 12 V lik¬ 
ström avrundar det innehållsri¬ 
ka kapitel fem. Sjätte kapitlet äg¬ 
nas åt analog till digital omvand¬ 
ling. Hur ett ADC-chips fungerar 
beskrivs noga (Analog och Digi¬ 
tal Converter, betyder ADC) med 
exempel frän ADC0816-chipet 
frän National Semiconductors. 


SCHMITT TRIGGER _ 

Hur man använder en vanlig kas¬ 
settbandspelare tillsammans med 
sin VIC 20 beskrivs i kapitel 7. 
Där fär man veta vad man skall 
leta efter för slags bandspelare, 
hur man lagrar information pä 
kassettband och vad en Schmitt 
Trigger är. (För dig som inte kän¬ 
ner till denna enkla grej kan be¬ 
rättas att det är en mojäng, som 
tar bort den rundade formen pä 
signalen frän ett kassettband och 
återger den fyrkantform, som da¬ 
torn helst vill ha.) 

Man får i detta kapitel nog¬ 
granna anvisningar hur man 
bygger sitt eget interface (sin 
mellankoppling alltså) till en 
vanlig bandspelare. Hur man tes¬ 
tar och kör den och hur man letar 
fel. 



Bok- 

RECENSIONER 


Stegvis leds vi i boken upp mot 
höjderna. Kapitel 8 talar om för 
oss hur man programmerar EP- 
ROM-moduler efter att först ha 
talat om för oss vad som är skill¬ 
naden mellan ROM, PROM, EP- 
ROM och EEPROM. 

Här kan man lära sig att pro¬ 
grammera maskinvaran, hur den 
fungerar, hur man bygger och 
testar sin egen ROM-brännare. 
Man får veta hur man väljer ut 
ett lämpligt EPROM och hur man 
programmerar 2532-chipet frän 
Motorola. De behövliga program¬ 
met upptar flera sidor! 

Fortsätter man in i kapitlet får 
vi veta hur man läser av ett ROM, 
och psst! även hur man omvand¬ 
lar en specialcartridge till en EP¬ 
ROM. Viktigast är hur man ska¬ 
par sitt eget automatiska start¬ 
system och vi får ett exempel pä 
ett auto-start ROM fran BASIC. 

Mot slutet får vi lära oss hur 
man kopplar in en parallell-skri- 
vare, kopplar samman maskin¬ 
varan och skriver program för att 
skriva i Text-mod. Program för 
grafik-mod presenteras i ma- 
skinspräk pä fyra sidor!!! 

Tionde kapitlet ägnas helt 
spel-porten. Här får vi lära oss 
allt om maskinvaran, om joy- 
sticks och paddlar. Men vi fär 
också läsa om hur man använder 
en snabb-koppling, om optiska 
detektorer och om infraröd-de- 
tektorer. Fotoceller och en ”fat¬ 


tig-mans-A/D-omvandlare” av¬ 
slutar kapitlet. 

Användning av RS 232-porten 
på VIC 20 ägnas hela kapitel 11. 
Baud-rate, nivå-skiftning, hand¬ 
skakning, paritet - allt är utför¬ 
ligt förklarat. Hur man gör ett 
interface till en apparat vilket 
som helst samt hur man konstru¬ 
erar ett nivå-skiftande interface 
till RS232-porten, hur man an¬ 
vänder 20 mA Current Loop för¬ 
klaras tillsammans med några 
ord om vilka överväganden som 
bör ske vid programmeringen. De 
olika kommandon som kan an¬ 
vändas med ett RS232-interface 
förklaras utförligt, liksom hur 
man kan kan använda RS232- 
porten för att ladda in BASIC- 
program. Kapitlet avslutas med 
några ord om VIC 20 som en stum 
terminal. 

Nästa och sista kapitlet, nr 12, 
behandlar VIC 20 som modem- 
ansluten terminal. Konstruktion 
av ett enkelt hembyggt modem 
liksom av en s k akustisk vagga 
beskrivs med utförliga ritningar. 
Testning och kommunikations¬ 
program avslutar genomgången. 

Sist i boken finns ett tvåsidigt 
appendix med alla skärmkoderna 
för VIC 20. Ett fyrsidigt stick- 
ordsregister gör det lätta att hitta 
tillbaka till de delar där man vill 
fräscha upp minnet igen. 

Boken har ISBN-nr 13-223421- 
1 och är utgiven i oktober 1984 på 
Prentice/Hall International. □ 


LOGO - nybörjarspråk 
för barn av alla åldrar 


Redan 1967 utvecklades 
den första versionen av 
programspråket LOGO. 
Det var prof. Seymour 
Papert vid Massachu¬ 
setts Institute of Teckno- 
logy som fick idén till det¬ 
ta. Han ville skapa ett 
språk som gjorde datorn 
tillgänglig även för barn 
från 3-årsåldern. 

Allt sedan dess har LOGO fram¬ 
för allt förknippats med ett ”dato¬ 


rernas barnspråk”. Men, som 
ordspråket säger, ”alla barn i bör¬ 
jan”, - och LOGO är en mycket 
lämplig start även för alla de vux¬ 
na som har så stor respekt för da¬ 
torer att de gärna blockeras av 
rädsla för att ”göra fel”. 

LOGO är hur enkelt som helst. 
Lär dig i böljan 4-5 ord (vanliga 
engelska ord som DRAW, FOR¬ 
WARD, BACK, LEFT, RIGHT), 
och du kan roa dig länge. Du får 
tillgång till en högupplösnings- 
skärm, som du sedan fyller med 
grafik, allteftersom ”paddan” 
(the turtle) traskar omkring på 
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skärmen efter dina kommandon. 
Att programmera motsvarande i 
Basic är en uppgift för proffs! 

Och LOGO tillåter att man gör 
fel! Den talar helt enkelt om, att 
t ex den eller den rutinen ”needs 
more inputs”, eller att en viss ru¬ 
tin ”doesn’t like — as input”. 
Vänligt men bestämt. Inga 
kraschade program eller hängda 
datorer här inte! 


ÄVEN ARITMETIK 

Även om LOGO främst betraktas 
som ett språk för enkel tillgång 
till grafik, innehåller det även 
rutiner för numeriska - resp. 
strängvariabler samt aritmetis¬ 
ka funktioner (alla vanliga räk¬ 
nesätten samt t ex sinus, cosinus, 
kvadratrötter). Vidare finns in- 
matningsrutiner motsvarande In¬ 
put och Get (= REQUEST <RQ) 
och READCHARACTER (RC) ). 

Det finns även rutiner för vissa 
enkla manipulationer av sträng¬ 
variabler. Däremot tycks ej LO¬ 
GO klara av att arbeta med in- 
dexerade variabler eller mat¬ 
riser. 

För att ytterligare underlätta 
för användaren kan dessutom 
flertalet av de vanligaste kom¬ 
mandona förkortas till endast två 
bokstäver. 

Principen för programmering 
är att användaren definierar eg¬ 
na ”ord”, som utför något. Dessa 
definitioner eller procedurer kan 
enkelt sparas till disk och sedan 
användas i nya applikationer. 
(På så sätt finns vissa likheter 
med Forth - som den uppmärk¬ 
samme VIC Rapport-läsaren vid 
det här laget bör vara rätt hem¬ 
mastadd vid.) 

Detta - och mycket mer - kan 
du läsa i en helt nyutkommen bok 
”Commodore 64 Logo Primer” av 
Gary G. Bitter och Nanny Ralph 
Watson (Reston Publishing 
Comp, Inc, Virginia, USA). 


_ELEMENTÄRT_ 

Nära hälften av boken upptas av 
en MYCKET elementär och de¬ 
taljerad introduktion till språket, 
med enkla exempel, ibland näs¬ 
tan alltför triviala. I följande hu¬ 
vudavsnitt som kallas ”Quick- 
start”, ges i stället en kort sam¬ 
manfattning, för den som har ti¬ 
digare erfarenhet av LOGO. 


Ett speciellt avsnitt ägnas en 
allmän bakgrund till hur pro¬ 
gramspråket utvecklats och hur 
det använts och testats bl a i un¬ 
dervisning i USA, - med mycket 
goda resultat. Och beträffande 
LOGO som språk för datorn i 
hemmet anförs hur mycket bätt¬ 
re det är om barnen skapar grafik 
på en videoskärm än att de pas¬ 
sivt sitter framför TV. Detta är 
speciellt intressant med den öka¬ 
de medvetenhet om TV-tittan- 
dets negativa effekter pä barns 
inlärnings- och föreståelseför- 
måga. 

Boken ger en god introduktion 
till att använda LOGO, främst för 


den totala novisen, som därige¬ 
nom får lättare att närma sig da¬ 
torer i allmänhet. Samtidigt be¬ 
skrivs även mer avancerade tek¬ 
niker som finns tillgängliga i LO¬ 
GO, vilket kan stimulera även en 
gammal Basic-räv att titta lite 
närmare på detta speciella språk. 

(Det är säkert inte bara en 
slump att Christensen & Co valt 
att lägga in en variant av LOGO’s 
turtlegrafik i Comal, - och kan¬ 
ske har det även bidragit till skol¬ 
överstyrelsens val av Comal som 
skolspråk på datorer i svenska 
skolor.) n 

/BG 


Sekventiella filer 
och Random access 


V arje programmerare stöter 
snart pä behovet att lagra da¬ 
ta ur ett program till ett sekundär¬ 
minne - kassettband eller disk. 
Det är dä som data-filer blir aktu¬ 
ella. 

Den naturliga metoden när man 
har begränsade material är att an¬ 
vända SEKVENTIELLA filer - 
hela datamängden skrivs resp lä¬ 
ses varje gäng. Datamängden 
måste givetvis begränsas till det 
som ryms i datorns primärminne, 
och om det gäller stora material, 
kan det vara tidsödande att ladda 
in en hel registerfil, när enstaka 
data ska kontrolleras eller ändras. 

För den som arbetar med disket¬ 
tenhet kommer därför snart beho¬ 
vet att skriva och läsa data till/ 
frän disketten med random access. 
Detta innebär att poster av data 
kan skrivas och hämtas var som 
helst pä disken, utan att man be¬ 
höver läsa in hela filen. 

Förutom snabbare tillgäng till 
enskilda poster, ger random access 
även möjlighet att lagra mycket 
större material - ja en hel diskett 
med drygt 180 K (180 000 tecken) 
kan användas för ett enda regis¬ 
ter! 

Mänga som prövat på att arbeta 
med sekventiella filer och regis¬ 
terprogram, upplever säkert det 
här med direktfiler eller ”random 
access” som något mystiskt, - nå¬ 
got som är till bara för ”de stora 
programmerarna”. 

En bidragande orsak till detta 


kan vara den lindrigt uttryckt 
snåriga famställning som görs i 
User’s Manual till 1541-driven. 
Snärigheten hänger samman med 
att man böljar framställningen 
med ”random files” och avslutar 
med ”relativa filer”. 



RECENSIONER 


UPPRÄTTA SJÄLV 

I den första typen, ”Random Fi¬ 
les”, måste programmeraren själv 
upprätta ett system för att hålla 
rätt på vilket block data ska skri- 
vas-läsas på, och sedan ”notera” 
detta i B AM - det interna registret 
pä disketten som håller rätt på le¬ 
diga och upptagna block. Det är 
Forts på nästa sida 
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Forts 

”Sekventiella filer...” 


som att själv behöva hälla rätt på 
lediga block, och upprätta ”direc¬ 
tory'’ när vanliga program ska 
sparas. Detta sköts ju (tack och 
lov) i normala fall av diskettenhe¬ 
tens DOS (Disk Operativ System). 

Att använda den andra typen av 
random-access-filer, ”Relativa fi¬ 
ler”, är betydligt enklare. Här an¬ 
vänder man DOS-ens inbyggda 
system att välja och skriva block, 
och att markera ”upptaget”, när 
ett block pä disketten tagits i bruk. 
Tbtalt finns 720 pekare, och vaije 
post av data behöver en pekare. 
Detta innebär att maximalt 720 
poster med vardera högst 254 tec¬ 
ken kan användas. Men detta är 
just precis det som ryms pä en hel 
diskett, varför även relativa filer 
kan användas för att lagra data¬ 
mängder som är lika stora som he¬ 
la disketten (180 K). 

Den som vill börja med random 
access-filer gör klokt i att börja 
med relativa filer, dvs överläta 
det lite mödosamma arbetet med 
att disponera disketten, till syste¬ 
mets eget DOS - för de flesta ända¬ 
mål är den mycket bra pä detta. 


_MÅNGA EXEMPEL 

En nyutkommen bok av David 
Miller, ”Commodore 64 Data Files 
- a Basic Tutorial” (Reston Pu- 
blishing Company, Ink) ger en 
mycket lättfattlig introduktion till 
hela detta stora område: datafiler. 
Boken omfattar ca 400 sidor, men 
en betydande del av utrymmet 
ätgär till programexempel, som 
först presenteras bitvis i löpande 
text, och sedan sammanfattas i 
slutet av varje kapitel. Dessa ex¬ 
empel är skrivna mycket spatiöst 
och med rikliga REM-satser som 
kommentarer vilket gör dem lätta 
att läsa. 

Bokens första hälft behandlar 
sekventiella filer, vilket väl de 
flesta som programmerat kommit 
i kontakt med. Dessa avsnitt går 
att tillämpa på såväl kassettband 
som diskett. Den andra hälften av 
boken tar upp Random files (rela¬ 
tiva filer), och lyckas med ett fler¬ 
tal enkla exempel avdramatisera 
och förklara sammanhangen. 



Författaren skriver i inledning¬ 
en till detta avsnitt, att första 
hindret för att förklara random- 
access-filer är fruktan. Folk är 
rädda att random access är för 
svärt för dem att kunna lära sig. 
Den här boken lyckas verkligen 
med uppgiften att lotsa läsaren 
över de mest besvärliga initiala 
hindren. 

Enkelheten beror delvis på att 
författaren begränsar sig till de 
”relativa filerna”, dvs den andra 
typen av random-access-filer som 
bekskrivits ovan. 

Trots omfänget, eller kanske 
just därför, är boken alltså mycket 
lättillgänglig. Vaije problem be¬ 
skrivs och benas upp - ibland näs¬ 
tan för långt, sä att det kan verka 
banalt. Men alltid torde även 
dessa ”banaliteter” svara pä nå¬ 
gons frågor. 

Här är en kort sammanfattning 
av att öppna-läsa-skriva till relati¬ 
va filer: 

1. Öppna kommandokanalen till 
driven: 

ex: OPEN 1,8,15 - och sedan, 

2. öppna en relativ fil, där max 
längden av posterna anges (dvs 
hur mänga tecken som en post ska 
kunna innehålla): 

ex: OPEN 3,8,3”registerdata,L, 
”+chr$(max) 

3. Att sedan skriva (läsa) posten, 
görs med angivande av postnum¬ 
mer (PN) i form av lågbyte (LB) 
och högbyte (HB). 

Dessa tal fås på följande sätt: 

HB=INT(PN/256) 

LB=PN-(256*HB) 

Man anger också var det aktuel¬ 
la fältet (den enskilda datan) i pos¬ 
ten böljar (PB). Dvs hur många 
tecken från postens start som det 
ligger. Första fältet har nr 1, och 
om fält nr 1 innehåller 15 tecken 


börjar fält nr 2 pä pä tecken 16, 
osv. Allt detta anges med ett 
Print# kommando till komman¬ 
dokanalen, följt av ”P”, samt chr$ 
med datakanal-nr (i detta ex = nr 
3), sedan låg- och högbyte, och var 
i posten (PB): 

Ex: 

PRINT# 1 ,"P”CHR$( 3 )CHR$( LB) 
CHR$(HB)CHR$( PB) 

4. Därefter skriver man med: 

Ex: PRINT#3,”DATA” 

eller läser mud: 

Ex: INPUT#3,”DATA” 

Efter avslutad skrivning eller läs¬ 
ning avslutas med att stänga filen: 

Ex: CLOSE3:CLOSE 1 

Vad jag har svärt att förstå är en 
detalj i boken, en vänterutin som 
väntar pä att RETURN-tangenten 
ska tryckas ned. Med 13 pokekom- 
mandon och ett PEEK lyckas för¬ 
fattaren krångla till en rutin, som 
(såvitt jag förstår) inte uträttar 
annat än följande vänterutin: 

10000 REM VÄNTA PA 
<RETURN> 

10010 GET A$:IF A$<> 

CHR$(13) THEN 10010 
10020 RETURN 

I gengäld fann jag en behändig 
teknik att utnyttja DOS Wedge 
(frän test-disketten till 1541-dri- 
ven) - inifrån Basicprogram. I 
vanliga fall förstörs ju basicpro¬ 
gram, om directory frän disken lä¬ 
ses in och listas. Men med DOS 
Wedge inläst och aktiverad kan 
man läsa directory med 
(a $<retum> 

- utan att basicprogrammen för¬ 
störs. 

Om du bara ser till att ha laddat 
DOS Wedge och sedan ditt basic¬ 
program, kan du utnyttja denna 
rutin för att läsa directory inne i 
basicprogram, med följande pro¬ 
gramrader: 

9000 REM LÄS DIRECTORY 
9010(« "$”:PRINT 
CHR$< 145)CHR$( 13) 

9020 GET A$: IF A$=” ” 

THEN 9020 
9030 RETURN 

Testa detta i något av dina basic¬ 
program ska du se hur fint rutinen 
fungerar! Det gör f ö hela denna 
bok, som varmt kan rekommende¬ 
ras. n 

BG 
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RÄTTELSE 

Angående programmet PRO- 
GRAMMERINGSHJÄLP som 
publicerades i VIC rapport 
årg 3 nr 11/12. Datasatserna 
längst ut pä rad 160 och 310 
saknas. 


rapP 0 * 1 

Ändring av uppgift 
i VIC rapport 11/12-84 

ä sid 78 under rubriken 
”Visste du att du kan ladda 
dina VIC 20 program pä en 
VIC 64 eller tvärtom” har ett 
fel insmugit sig. 

Det fanns redan i källmate¬ 
rialet och kan därför ej lastas 
på den ökände Tryckfels-Nis- 
se. Det motstånd som skall lö¬ 
das in före kassettmotorn skall 
vara pä 17 Ohm. Även 15 Ohm 
fungerar utmärkt. 

Ett varmt tack till Johan 
Björklund, som prövat sig 
fram. För att lära av Johans 
misstag, sä är det inte likgil¬ 
tigt om du lödar in motståndet 
efter kassettmotorn. Det mås¬ 
te vara före! □ 




160 DATA 199,141„7,3,96,109,0,133,0,169,76,133,124,169,79,133,125,169,29,133,126,169 

310 DATA 48,180,32,71,203,208,245,177,95,133,01,200,177,95,133,02,169,255,133,0,96 
READY 


FAMILJEN VI ^TORSSON 
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Forts från 
sidan 9 


program 

”STOPIT” 



£000 
£100 
£110 
£200 
££05 
££10 
££15 
£££0 
£££5 
£300 
£330 
£400 
£500 
£505 
£530 
£540 
J00O 

3001 

3002 

3005 

3006 
300? 

3008 

3009 

3010 

3011 

3012 

3013 

3014 

3015 

3016 
301 ? 
3010 
3040 

3049 

3050 
3055 
3060 
3100 
3110 
3120 
3150 
3160 
31 ?0 
3100 
3£00 
3££0 
3230 
3240 
3250 
3255 
3260 
3£?0 
3£?5 
3260 
3290 
3300 
3310 
3320 
3330 
3400 
3420 

3500 

3501 
7900 
7920 
7930 
7950 
7960 
7970 
7990 
7992 
7995 
0000 
8001 
8002 

8003 

8004 

8005 

8006 
800? 

8008 
8009 
8018 
8011 
8012 
8013 

8014 

8015 

8016 
801? 

8018 
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rfHTN 54-T 

0010 ffsff&YfSi*?!'* 1 ' 8 » 

O0T0 169.•' 208 ' 8 

08Th 2 , 20 ® 1 -* ££4 

0hih 2ti«,4. 169 fj' i i: 

O0T0 u.132 i?';ia'i 5 '‘ 5 5.189 
O0T0 253 32 Mf?Ä;»' 145 

00T 0 44,201, 25 !' *^'201.0,240 
00T0 192715? 7 ^'£09 

O0T0 

SEiiir 

WT0 l 1 83:f| 3 ,'^ e i|| 2 ;| 4 : ||8;£49 
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*013 
8020 
8021 
8022 
8023 
802-1 

8025 

8026 
802? 
8028 
8023 

8030 

8031 

8032 

8033 

8034 

8035 

8036 

8037 
8033 
8033 

8040 

8041 

8042 

8043 
. 8044 
I 3045 

8046 

8047 
8043 
8043 

8050 

8051 

8052 

8053 

8054 

8055 
6056 
8057 

8056 
3053 
8060 
8061 
8062 

8063 

8064 

8065 

8066 

8067 

8068 
8063 
8070 
6071 

8072 

8073 

8074 

8075 
3076 
6077 
8078 
8073 
3080 
8081 
8082 

8083 

8084 

8885 

8886 
8887 
8088 
8083 
8090 
3091 
8032 
3033 
8094 
8035 
8096 

3097 

3098 

8099 

8100 
8101 
8102 

8103 

8104 
-3105 
8106 
8107 


AEAOV. 


SmS 3 

DATA 204,203, 

DATA 200,185,219 l!?' 41,4, 192 
WiTR 185,219,7 ^4 ’. 4 ?' • 2 W 0 

185.219 i|J # 4 }'*£' ** 2,200 

ss k S-i 
sk tzåkt 

MTA 143,132 lä 2 , J 4 I' 2 53,32 

I'hTh 143,i v Jf5 , 2 ®3. 62 

DATA 43 132 lä'!; ‘I 5 ' 252 - 32 
DATA i 52,160 ti 4 ]' 240 • 2 6 

DATA 132,160 21 

SIS ig; 3 : ä : %&:£:!% 

sas 

DATA 184 H ? 7 , / 97 ^, 19 ?' 1 ^ 

DATA 141,1^4 192 J??' i }’ l?ö -182 
DATA 83 , 13? 14i 90 Li 9 , 1 i ‘ 92 ■ 141 
1‘Hrfi 192.1 #5 21* i .j! * - '^2. *-04 

Wim 200 , lé|,i|J' I 1 !!', 141 ' 2 ® 2 ' 182 

DAT» 200,140,204.19 - jt*,’ 202 ,132 
DATA Ml ,117132 i! . ’ 43, 192 

MTA 157,4, is^iä 2 ; 1 ;'? 9 ; 0 
DATA 132.232 ^ 

DATA 189, 7 i 2 't X 3' * 1:* 82,208.240 
OA Th 41 lo 1^8.12 

DATA 3,88736, iir ; 1 ^;! 41 21 
DATA 132,i63,133 i af i'? 

'HJA 0.0 5.0 f” fs 4 10 
MW 

DATA 107,M,7^;fi 4 ;ä^ S 

ÄR i?: 

gfS 

DATA 6 », 7, I -4 '-»‘<14-75 

ohia r752,«!iifiH '' 4 ;ii 

DATA ^ 1 f i ^ ^,i2 5 ;i 4 34 

SM 2 f ? 

SK ZlZfiä*?? 

M1A 14,' { 72 9 57?ié ‘lilhl* 1 

ssxsztfi 

data Mesfis^t 198 ? 5 

EK ?r','li 9^ 43 

MW 45,14 63 i ; f4 1 9'- 1 ?f 

mw 

SSS 

DATA I 4 ';!' 34 , 40 -25-34.40 

. < f, , !,'Ä?2!,« 4 „ 4 „ 21 ., s „ s6 
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GRATISANNONSER 


SÄLJES 


TV 64 PA KASSETT 

Detta är två program i ett till VIC 64. Man kan 
räkna ut volymen av en boll, kon m m och 
omvandla Celsius till Fahrenheit m m. Skic¬ 
ka mig 35 kr + band så lår du programmet, 
Matts Rydberg, Odensvivägen 12A, 730 30 
Kolsva. 

VIC 20 SÄLJES 

VIC 20, bandspelare, expansionsenhet VIC 
1020, super expander +3k, 16k, prog-aid, 
forth, joystick, böcker, 80-tal spel- och nyt- 
toprogram. Säljes helt eller i delar. Ring 
0150-188 65. 


SKRIVARE SÄLJES 

Seikosha GP 100 VC till VIC64 säljes p g a 
byte. 1750:-. 0978-203 27, Fredrik. 


VIC 20 SÄLJES 

VIC 20 med bandspelare + 16k, 3k ram + 3 
st böcker bla. "Från spel till Basic" + ca 100 
spel- + nytto-program säljes för endast 
3000 kr ring fort 031-93 16 19. Prata med 
Daniel. Jag säljer även VIC 64 spel, har 
massor! Skriv till Jarl Bennis, Transforma- 
torv. 7, 430 41 Kullavik. 

SÄLJES TILL VIC 64 

Programming kit. 1 Irån Timeworks. Du lår 
dig med detta program göra egna spel. Ny¬ 
pris: 295:-. Nu endast 150:- för originalka- 
sett med manual. Erik Bertell, Ringvägen 
23, 824 00 Hudiksvall, tele: 0650-161 74 

GLOSFÖRHÖR FÖR VIC 64 

Funktioner t ex utskrift av glosor, förhör, 
ändra, spara, hämta glosor. Pris: 50 kr + 
kassett el. diskett. Skriv till Johan Harrys- 
son, Båtvägen 5, 590 61 Vreta Kloster, lör 
beställning eller mer information. 

VIC 20 tillbehör 

Forth + 3k 275 kr. Böckerna Zap Pow Boom 
och VIC Innovate computing 60 kr/st. eller 
100 kr för båda. Originalspelet Andes Attack 
50 kr. Miguel Berg. Fridhemsgatan 110 C, 
852 43 Sundsvall. 

DATATIDNINGAR 

Mikrodatorn 9, 10 -83, 1-6 -84 Personda¬ 
torn 6,7,8 -84 Mm Hemdator 1,3,4 -83,1-5 
-84. Allt om hemdatorer 3-5 -83, 1-8 -84. 
Säljes för 200:- + porto. Ring 040-12 89 12. 

VIC 20 SPEL SÄLJES 

3 st för 50 kr. Missile. Caterpillar, Animals, 
3D-Man + 3k (Js), Fanbs (ormen), Frog 
Run, Poker + 3k, Yatzy + 3k, Lotto med 
Rättning + 3k, Ladders + 8k. Vilka vill du 
ha? Tore Gullstrand, Norrgårdsv. 127, 
184 00 Åkersberga. 

VIC 20 SÄLJES 

VIC 20 med bandspelare, instruktionsbok 
samt ca 200 spel och nyttoprogram säljes 
för 1100 kr. Tel 08-47 12 97 efter kl. 18 00 


SPEL TILL VIC 20 

5 spel på kassett säljes för 150 kr (obs ej 
piratkopior), frakt 15:- tillkommer. Vid be¬ 
ställning inom 15 dagar tillkommer 5 extra 
program Per Christensen, Box 94, 574 00 
Vetlanda. 

VIC 64 

Nyttoprogram säljes till högst bjudande. Te- 
ledata Text 64 m m. Tel: 018-25 03 55 kl 
16-18. 

VIC 64 PROGRAM SÄLJES 

Zeppelin, Forth Apocalypse. Survivor, Mule, 
Zaxxon, Astro Chase. Solo Flight. Choplif- 
ter, 125 kr/st. Simons basic 250 kr, Graf 64 
200kr. Observera allt är original! Kan även 
byta. Anders Gorner, Harrebacken 6. 
443 00 Lerum. 

NY VIC 64 SÄLJES 

4 mån. gammal VIC 64 + bandst + manual 
+ Intr Basic del 1 + System VIC 64 + div. 
spel (Cup Final, Blue Max, Pharaos Curse 
mm 30 st.) allt för 3350 kr 0910-109 32 
Peter efter kl. 16.00. 

VIC 20 SÄLJES MED 

bandstation, 16k ram, ljuspenna, joystick, 
extra joystickport, 6 program-böcker, en lis¬ 
ta på spel, manual Zorgon s Kingdom, ma¬ 
nual till Boss, joystickrutin, DataBas manu¬ 
al, 65 spel och nyttoprogram. Pris 2500 kr, 
kontakta Johan på tel 08-771 27 41! 

PROGRAM VIC -64 

Simons Basic 400 kr, Forth 64 350 kr, Hes- 
mon 250 kr, tel 031 -20 75 69. 

SPEL SÄLJES TILL VIC 20 

Skriv till Patrik Skoog, PI.5020.453 00 Lyse¬ 
kil, så skickar jag prislista (skicka med retur¬ 
porto). 

• •DAMMSKYDD** 

Skydda din dator mot smuts och damm. VIC 
20/64 + bandpelare: 40 kr, Disk drive 1541: 
40 kr. Även special skydd kan beställas. Tel 
0303-776 15, Lars Olsson. 

PRINTER SÄLJES 

Printer VIC 1525 säljes för 2400 kr. Tel 
0500-307 50. 

HAR DATORN LÄST SIG? 

Skaffa dig en resetknapp för bara 40 kr. Ring 
Hans 013-703 79. 

FORTH TILL CBM 64 

Forth cartaridge-modul + PET forth manual 
säljes för 600:- (nypris 770:-), ring 060- 
927 40 Roland. 

VIC 20 SÄLJES 

Bandspelare, extra handböcker, en årgång 
VIC rapport, ca 50 spel t ex Arcadia, Mega- 
galatic, Liarnas + många fler bra spel, pris 
1400 eller högst erbjudande. Hör av er till 
Tommy, 0321-810 71 efter 17.00. 


VIC 20 SÄLJES MED 

många spel bl a. Superlander, Crazy, Kong, 
Hoppit. Arcadia, Vic, Panic + programme¬ 
rings böcker + joystick, pris 1300 kr, ring till 
Gunnar tel 0533-190 56. 

VIC 20 SÄLJES 

VIC 20, bandspelare, maskinkodsspel, 2 
cartridgespel, +3k, Programmers Aid, 2joy- 
sticks, 1 originalkassett, böcker, tidningar 
lör bara 3995 kr. Kontakta Fredrik 0383- 
175 36 slå till direkt! OBS! Många spel! 

LOST.? NEVER FEAR..! 

Twas is here’ Your CBM 64 Adv Guide 
Lösningar till: Adv inom (parentes) end.? 
tips. Scott Adams lem första. (The Hulk) 
(Snow Bali) (Col Adv) (Twin King Val) (The 
Hobbit) TWAS: The Wheel adv service 
OBS! + Caztec tomb, ring Mattias 013- 
15 21 20. 

KOMPLETT 64 SYSTEM 

CBM 64, Floppy, 1526-Prinler, Joystick, 
1701-Monitor, ca 60 diskar med program 
och spel, böcker, tidningar mm. mm Ny¬ 
pris: över 20 000-, bortslumpas lör 
15 000:- eventuellt även i delar Ring Mats 
tel 021-33 27 30 nu! 

SÄLJES 

64:a med 1541 lloppy, Calc Result Ad- 
vance, Mon 64, Hesmon, 60 disketter m 500 
program, 3 joysticks och en massa doku¬ 
mentation Nypris 12 500:- exkl. program¬ 
vara, nu 9000:- eller högstbjudande. Kon¬ 
takta Magnus tel 021- 33 01 03. 

VIC 64 PROGRAM SÄLJES 

Säljer bl a Superbase 500 kr (nypris 995 kr), 
Beach head, Summer Games 200 kr, Hover 
Bovver 30 kr OBS alla program är original. 
Ring Andre på tel 08-85 66 49. 

ORIGINALSPEL TILL VIC 64 

Siren City 39 kr, Frogger 64 39 kr, ring Sven 
på tel 08-773 24 36. 

PHILIPS TV-SPEL G7000 

Med fyra kassetter säljes till det lörmånliga 
priset 500:-, billigare än ett enda spel till dm 
dator! Ring 0380-113 83 för vidare informa¬ 
tion. 

SÄLJES OCH BYTES 

Spel till VIC 64 bytes och säljes. Program till 
Simon s Basic köpes eller bytes. Även nyt¬ 
toprogram säljes och bytes. Skriv till Keivan 
Kechmiri, Gösvägen 29. 663 02 Hammarö 
eller ring 054-247 14. 

BANDMINNE 

Commodore datadiskett modell C2N 275 
Bertil Nilbo 042-22 24 36. 

TRASIG VIC? 

Har du en trasig VIC eller en annan hemda¬ 
tor. Ring mig, jag kan nog hjälpa dig med 
den. Leif 08-740 17 11 mellan 18-21. 
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ASSEMBLER & MONITOR 

till VIC 64 i 800 kr klassen. 195:- inkl. allt. 
Sätt in 20:- på Pg 17 52 00-5 så får Du 
manualen. Den dras av vid köpet. BIG 
FORTH med assembler och fullskärmsedi- 
tor 195:- Tel 0515-103 00 ROJTEC, Box 2, 
521 02 Falköping. 


BYTES 


CARTRIDGE BYTES 

Cartridge-spelet Lemans bytes mot annat 
spel eller nyttoprogram på cartridge. Ev säl- 
jes. Per Grundström. Cederrothsväg 12, 
663 00 Skoghall, tel 054-237 35. 

64 SPEL BYTES 

Jag byter spel och nyttoprogram. Stort sorti¬ 
ment. Tel: 090-13 38 42, Nlclas Aström. 

COMMODORE 64 

Jag önskar byta och sälja spel på kassett 
(mycket billigt) till VIC 64, Ring eller skriv till 
Lars Tingvall, Slåttervägen 3, 824 00 Hu¬ 
diksvall, tel: 0650-167 83 (efter 15.00). 

COMMODORE 64 

Spel bytes och säljes både pä disk och 
band. Söker spel som Pole Position II. Xavi- 
us, Jupiter Mission, Robots of Dawn och 
Combatlynx, skriv till Tommy Isaksson, Fu- 
rudalsv. 15, 752 60 Uppsala. 

*VIC 20 SPEL BYTES* 

Jag vill byta oexp och exp spel till VIC 20 ev 
säljes billigt. Ring 0411-332 39 och fråga 
efter Johan eller skriv till. Johan Adolfsson, 
Högastensvägen 6, 270 11 Abbekäs. 

VIC 20 SPEL BYTES 

Jag byter oexpanderade spel till VIC 20 t ex 
Scramble, Amok, Llamasoft o s v. Är du in¬ 
tresserad ring 0300-616 13, fråga efter 
Anders. 

VIC 64 SPEL BYTES 

Jag byter mina högklassiga maskinkods- 
spel mot dina. Tveka inte! Ring därför direkt 
till Niklas, 0250-168 65. 

VIC 64 PROGRAM BYTES 

eller säljes. Anders Gorner, Hareb 6,443 00 
Lerum. 

DATAKOMPIS 

Datakompis med VIC 20 i Norrköpings-trak- 
ten sökes för byte av erfarenheter. Ring Ro¬ 
bin 011-587 70. 

VIC 20 o VIC/CBM 64 BYTES 

Skicka 1 -4 m-kodspel på kassett så skickar 
jag dig lika många. Jonny Karlsson, Åkerby 
1403, 816 00 Ockelbo. 

SPELGALNINGAR 

Vill du byta spel? Jag har Hobbit. Congo 
Bongo, Zeppelin, Hero, Hungry Horace och 
div andra spel, endast på kassett! Kontakta 
Magnus Bergqvist, Sparrefeltsgatan 318, 
502 57 Borås. 


VIC 64 SPEL BYTES 

Jag har ca 50 st spel och jag har även nyt¬ 
toprogram. Jag har bl a Zaxxon. Bruce Lee, 
Ghostbusters, B.C s Quest for Tires. Ring 
eller skriv till Sven Lind, Klisätravagaen 41, 
138 00 Älta, tel: 08-773 24 36. 

BYTES 

Jag skule vilja byta Dallas Quest mot något 
annat roligt spel t ex Gateway To Apshai. 
Släng dig på telefonen och ring: 08- 
716 34 85, fråga efter Björn. 

HEJSAN, HEJSAN ALLIHOP 

Vi är två 64 innehavare som gärna vill byta 
lite ruggigt häftiga spel vi har bl a Dallas 
Quest. Raid over Moscow, Sam, Mule och 
varsin 64 dator. Vi har även 150 andra super 
häftiga spel! Ring 031-28 26 89, fråga efter 
spelidioten Niklas. 

VIC 64 

Jag vill byta till mig Valhalla och/eller 
Knights of the Desert. Har ca 20 spel t ex 
Manic Miner, Decathlon, Blue Max, Fort 
Apocalypse. Tel 0303- 816 95 Per. 

COMMODORE 

Spel och nyttoprogram bytes Skicka lista till 
Krister Svensson. Kvarng 61,267 00 Bjuv. 

VIC 64 SPEL BYTES! VIC 64 

The Hobbit och Blue Max och andra spel 
bytes mot andra spel. Helst i maskinkod. 
Spelen ska vara på kassett. Ring fel 023- 
237 76, fråga efter Mattias efter kl 16.00. 


KÖPES 


KÖPES 

8 eller I6k expansionsminne köpes till VIC 
20, max 350 kr, Miguel Berg, Fridhemsga- 
tan 110C, 852 43 Sundsvall 

VIC 20 

16k byte extraminne önskas köpa för 250 kr. 
Skriv till Patrik Skoog, Pl 5020, 453 00 Lyse¬ 
kil, snarast! 

SE HIT! 

Jag köper din flygsimulator till VIC 20. ring 
019-13 47 13 efter kl 17.00, fråga efter 
Mikael. 

KÖPES TILL VIC 20 

16k minne köpes för högst 200 kr. Skriv till: 
Patrik Skoog, Pl 5020.453 00 Lysekil. 

SIMON S* MANUAL KÖPES 

Jag köper SIMONS'S BASICS instruktions¬ 
bok till ett rimligt pris. Byter gärna spel och 
nyttoprogram också. Ring 0370-144 37 och 
fråga efter Henrik. 

KÖPES 

Valhalla 64, (originalkassett) samt 64 Ref 
Guide. Skriv till: Dean Tosic, Lokvägen 37, 
260 33 Påarp, och ange hur mycket du vill 
ha! 

KÖPES TILL VIC 20 

Action och äventyrsspel skicka med lista till: 
Patrik Skoog, Pl 5020, 453 00 Lysekil. 



VIC 
rapport 
nummer 3 
utkommer 
den 3 april. 

Tipsextradax 

Många läsare har ef¬ 
terlyst ett tipsprogram 
till VIC 20.1 nästa 
nummer finner du ett 
sådant. 

En novell 

I nästa nummer kan du 
läsa om Lars, som blev 
"biten” av adventu - 
respel. 

Dataregister 
64 advanced 

VIC Center i Stock¬ 
holm kommer i dagar¬ 
na ut med ett nytt pro¬ 
gram. Läs rescensio- 
nerna om detta i nästa 
nummer. 

Årets datorer 
utsedda 

Vilken är årets hemda - 
tor? Svaret får du i VIC 
rapport nr31985. 


Slut på lagret 

VIC rapport 
årg 3 nr 8 och 9 
samt nr 1/85 är 
slut på lagret. 
Går ej att be¬ 
ställa. 
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Räkna med VIC 64S 


”Pluggar” du In Calc Result i din VIC 64S så får 
du en kombination som har blivit en väridssuccé 

Calc Result är ett kalkyleringsprogram, som finns i två versio¬ 
ner. 

Calc Result Easy är ett sk "spreadsheet” dvs ett jätteark 
där du kan bygga upp dina kalkylmodeller, koppla ihop fakto¬ 
rer som är beroende av varandra, göra grafisk presentation av 
värden, ändra en faktor i en total kalkyl och blixtsnabbt få det 
nya resultatet. Bygg t ex upp deklarationsblanketten och spa¬ 
ra in den, så går nästa års deklaration på en kafferast. 

Calc Result Advanced arbetar på samma sätt, men har en 
tredje dimension. Det har 32 sidor att arbeta på, vilket gör det 
möjligt att på ett företag kalkylera flera avdelningars resultat 
över hela aret. Varje avdelning lägger du på en egen sida i 
Calc Result Advanced. När samtliga avdelningar är färdigräk- 
nade var för sig summerar du helt enkelt resultatet till sista si¬ 
dan och får omedelbart en total sammanställning. 



Kalkylering är en del av vad VIC 64S kan. I foldern 
"VIC till vardags" får du ma information om vad 
VIC kan göra för dig i vardagslivet. 




Jag vill ha foldern "VIC till vardags" 


Bo» 1063,436 00 Ask.m/Goteborg, T«f 031/28 97 90 


Namn_ 

Adress_ 

Poslnr/Ort 






Sänd in kupongen ttll handlc etectronic. Bo* 1063. 436 00 Askfm. 






















